With Annotation/Changes on
 Pg 216 to make BITBLT paramters clearer.
 Pg 340 Add a few comments and tip
 Pg 332 Correct "clar" to "clear"
 Pg 354 .'7' to ,'7'1
 Pg 362 FC2322 to FC2324
 Pg 366 restire to restore
 Pg 371 Remove incorrect F from dc.b hex values
 Pg 376 Addres to Address
 Pg 377 FC2AC.) to FC2AC0
 Pg 397 wl] * 21 to wheel
 Pg 445 colun to column

******************************************************* ATARI ST ROM-BIOS
FC0000 601E                   bra      $FCO0020                     to Start of program
FC0002 0100                   dc.b     1,0                          Version 1
FC0004 00FC0020               dc.l     $FC0020                      Reset address
FC0008 00FC0000               dc.l     $FC0000                      Start of the operating system
FC000C 00006100               dc.l     $6100                        Start of free RAM
FC0010 00FC0020               dc.l     $FC0020                      Default shell (reset)
FC0014 00FEFFF4               dc.l     $FEFFF4                      Address for GEM magic
FC0018 02061986               dc.l     $02061986                    Creation date  2/6/1986
FC001C 0003                   dc.w     3                            Flag for PAL version
FC001E 0C46                   dc.w     $0C46                        Date in DOS format
FC0020 46FC2700               move.w   #$2700,SR                    Supervisor mode, IPL 7
FC0024 4E70                   reset                                 Reset peripherals
FC0026 0CB9FA52235F00FA0000   cmp.l    #$FA52235F,$FA0000           Diagnostic cartridge inserted ?
FC0030 660A                   bne      $FC003C                      no
FC0032 4DFA0008               lea      $FC003C(PC),A6               Load return address
FC0036 4EF900FA0004           jmp      $FA0004                      Jump to cartridge

FC005C 4DFA0006               lea      $FA0044(PC),A6               Load return address
FC0040 60000596               bra      $FA05D8                      Memory configuration valid?
FC0044 660A                   bne      $FA0050                      no
FC0046 13F900000424FFFF8001   move.b   $424,$FFFF8001               Get memctrl
FC0050 9BCD                   sub.l    A5,A5                        Clear A5
FPC052 0CAD314159260426       cmp.l    #$31415926,$426(A5)          resvalid, resvector valid ?
FC005A 6618                   bne      $FC0074                      No
FC005C 202D042A               move.l   $42A(A5),D0                  Load resvector
FC0060 4A2D042A               tst.b    $42A(A5)                     Test bits 24-31
FC0064 660E                   bne      $FC0074                      Set, vector invalid
FC0066 08000000               btst     #0,D0                        Address odd?
FC006A 6608                   bne      $FC0074                      Yes, invalid
FC006C 2040                   move.l   D0,A0                        Load address
FC006E 4DFAFFE0               lea      $FC0050(PC),A6               Load return address

FC0072 4ED0                   jmp      (A0)                         Jump via vector
FC0074 41F9FFFF8800           lea      $FFFF8800,A0                 Address of the PSG
FC007A 10BC0007               move.b   #7,(A0)                      Port A and B
FC007E 117C00C00002           move.b   #$C0,2(A0)                   To output
FC0084 10BC000E               move.b   #$E,(A0)                     Select port A
FC0088 117C00070002           move.b   #7,2(A0)                     Deselect floppies
FC008E 083A0000FF8B           btst     #0,$FC001B(PC)               Pal version ? (must be $FC001D)
FC0094 6710                   beq      $FC00A6                      No
FC0096 4DFA0006               lea      $FC009E(PC),A6               Load return address
FC009A 60000C48               bra      $FC0CE4
FC009E 13FC0002FFFF820A       move.b   #2,$FFFF820A                 Sync mode to 50 Hz Pal
FC00A6 43F9FFFF8240           lea      $FFFF8240,A1                 Address of the color palette
FC00AC 303C000F               move.w   #$F,D0                       16 Colors
FC00B0 41FA054C               lea      $FC05FE(PC),A0               Address of the color table
FC00B4 32D8                   move.w   (A0)+,(A1)+                  Copy color in palette
FC00B6 51C8FFFC               dbra     D0,$FC00B4                   Next color
FC00BA 13FC0001FFFF8201       move.b   #1,$FFFF8201                 dbaseh
FC00C2 13FC0000FFFF8203       move.b   #0,$FFFF8203                 dbasel, video address to $10000
FC00CA 9BCD                   sub.l    A5,A5                        Clear A5
FC00CC 1C2D0424               move.b   $424(A5),D6                  memctrl
FC00D0 2A2D042E               move.l   $42E(A5),D5                  phystop
FC00D4 4DFA0006               lea      $FC00DC(PC),A6               Load return address
FC00D8 600004FE               bra      $FC05D8                      Memory configuration valid?
FC00DC 670000E4               beq      $FC01C2                      Yes
FC00E0 4246                   clr.w    D6                           Start value for memory controller
FC00E2 13FC000AFFFF8001       move.b   #$A,$FFFF8001                Memory controller to 2 * 2 MB
FC00EA 307C0008               move.w   #8,A0                        Start address for memory test
FC00EE 43F900200008           lea      $200008,A1                   A1 points to second bank
FC00F4 4240                   clr.w    D0                           Clear bit pattern to be written
FC00F6 30C0                   move.w   D0,(A0)+                     Write pattern
FC00F8 32C0                   move.w   D0,(A1)+                     Write to other address range
FC00FA D07CFA54               add.w    #$FA54,D0                    Next bit pattern

FC00FE B1FC00000200           cmp.l    #$200,A0                     End address reached?
FC0104 66F0                   bne      $FC00F6                      No
FC0106 223C00200000           move.l   #$200000,D1                  Dl equals second bank
FC010C E44E                   lsr.w    #2,D6
FC010E 307C0208               move.w   #$208,A0                     Is bit pattern at $208 ?
FC0112 4BFA0006               lea      $FC011A(PC),A5               Load return address
FC0116 600004AA               bra      $FC05C2                      Memory test
FC011A 6720                   beq      $FC013A                      OK, 128 K
FC011C 307C0408               move.w   #$408,A0                     At $408 ?
FC0120 4BFA0006               lea      $FC0128(PC),A5               Load return address
FC0124 6000049C               bra      $FC05C2                      Memory test
FC0128 6710                   beq      $FC013A                      OK, 512 K
FC012A 307C0008               move.w   #$8,A0                       At $8
FC012E 4BFA0006               lea      $FC0136(PC),A5               Load return address
FC0132 6000048E               bra      $FC05C2                      Memory test
FC0136 6604                   beq      $FC013A                      Nothing in this bank
FC0138 5846                   addq.w   #4,D6
FC013A 5846                   addq.w   #4,D6                        Configuration byte to 2 MB
FC013C 92BC00200000           sub.l    #$200000,D1                  Next bank
FC0142 67C8                   beq      $FC010C                      Test for first bank
FC0144 13C6FFFF8001           move.b   D6,$FFFF8001                 Program memory controller
FC014A 287900000008           move.l   $8,A4                        Save Bus Error vector
FC0150 41FA0036               lea      $FC0188(PC),A0               Address of new Bus-Error routine
FC0154 23C800000008           move.l   A0,$8                        Set
FC015A 363CFB55               move.w   #$FB55,D3                    Start bit pattern
FC015E 2E3C00020000           move.l   #$20000,D7                   Start address is 128 K
FC0164 2047                   move.l   D7,A0                        save current
FC0166 2248                   move.l   A0,A1                        address
FC0168 3400                   move.w   D0,D2
FC016A 722A                   moveq.l  #42,D1                       43 words
FC016C 3302                   move.w   D2,-(A1)                     Write bit pattern in RAM
FC016E D443                   add.w    D3,D2                        Change pattern

FC0170 51C9FFFA               dbra     D1,$FC016C                   Write next bit pattern
FC0174 2248                   move.l   A0,A1                        Repeat address
FC0176 722A                   moveq.l  #42,D1                       43 words
FC0178 B061                   cmp.w    -(A1),D0                     Is bit pattern in RAM?
FC017A 660C                   bne      $FC0188                      No, terminate test
FE017C 4251                   clr.w    (A1)                         Clear RAM
FC017E D043                   add.w    D3,D0                        Change bit pattern
FC0180 51C9FFF6               dbra     D1,$FC0178                   Test next word
FC0184 D1C7                   add.l    D7,A0                        Increment address by 128K
FC0186 60DE                   bra      $FC0166                      Continue testing

FC0188 91C7                   sub.l    D7,A0                        Address minus 128 K
FC018A 2A08                   move.l   A0,D5                        Save
FC018C 23CC00000008           move.l   A4,$8                        Restore old Bus-Error vector
FC0192 2045                   move.l   D5,A0                        Highest address for clear
FC0194 283000000400           move.l   #$400,D4                     Lower bound for clear
FC019A 4CFA000F0450           movem.l  $FC05EC(PC),D0-D3            Clear registers DO-D3
FC01A0 48E0F000               movem.l  D0-D3,-(A0)                  Clear 16 bytes
FC01A4 B1C4                   cmp.l    D4,A0                        Lower bound reached?
FC01A6 66F8                   bne      $FC01A0                      No, continue
FC01A8 9BCD                   sub.l    A5,A5                        Clear AS
FC01AA 1B460424               move.b   D6,$424(A5)                  memctrl
FC01AE 2B45042E               move.l   D5,$42E(A5)                  Highest RAM address as phystop
FC01B2 2B7C752019F30420       move.l   #$752019F3,$420(A5)          magic to memvalid
FC01BA 2B7C237698AA043A       move.l   #$237698AA,$43A(A5)          magic to memval2
FC01C2 9BCD                   sub.l    A5,A5                        Clear A5
FC01C4 307C093A               move.w   #$93A,A0                     End of the system variables
FC01C8 227C00010000           move.l   #$10000,A1                   to current video address
FC01CE 7000                   moveq.l  #0,D0
FC01D0 30C0                   move.w   D0,(A0)+                     Clear memory
FC01D2 B3C8                   cmp.l    A0,A1                        End address reached?
FC01D4 66FA                   bne      $FC01D0                      No

FC01D6 206D042E               move.l   $42E(A5),A0                  phystop
FC01DA 91FCO0008000           sub.l    #$8000,A0                    minus 32 K
FC01E0 2B48044E               move.l   A0,$44E(A5)                  equals _v_bs_ad
FC01E4 13ED044FFFFF8201       move.b   $44F(A5),$FFFF8201           dbaseh
FC01EC 13ED0450FFFF8203       move.b   $450(A5),$FFFF8203           dbasel
FC01F4 323C07FF               move.w   #$7FF,D1                     32 K
FC01F8 20C0                   move.l   D0,(A0)+
FC01FA 20C0                   move.l   D0,(A0)+                     Clear screen
FC01FC 20C0                   move.l   D0,(A0)+
FC01FE 20C0                   move.l   D0,(A0)+
FC0200 51C9FFF6               dbra     D1,$FC01F8                   Next 16 bytes
FC0204 207AFE0E               move.l   $FC0014(PC),A0               Address os_magic
FC0208 0C9087654321           cmp.l    #$87654321,(A0)              magic present ?
FC020E 6704                   beq      $FC0214                      Yes
FC0210 41FAFDF6               lea      $FC0008(PC),A0               Else use system addresses
FC0214 23E80004000004FA       move.l   4(A0),$4FA                   end_os
FC021C 23E80008000004FE       move.l   8(A0),$4FE                   exec_os
FC0224 2B7C00FC0D60046A       move.l   #$FC0D60,$46A(A5)            hdv_init
F0022C 2B7C00FC10D20476       move.l   #$FC10D2,$476(A5)            hdv_rw
FC0234 2B7C00FC0DE60472       move.l   #$FC0DE6,$472(A5)            hdv_bpb
FC023C 2B7C00FC0F96047E       move.l   #$FC0F96,$47E(A5)            hdv_mediach
FC0244 2B7C00FC137C047A       move.l   #$FC137C,$47A(A5)            hdv_boot
FC024C 2B7C00FC1F340506       move.l   #$FC1F34,$506(A5)            prt_stat
FC0254 2B7C00FC1EA0050A       move.l   #$FC1EA0,$50A(A5)            prt_vec
FC025C 2B7C00FC1F6E050E       move.l   #$FC1F6E,$50E(A5)            aux_stat
FC0264 2B7C00FC1F860512       move.l   #$FC1F86,$512(A5)            aux_vec
FC026C 2B7C00FC0C2C0502       move.l   #$FC0C2C,$502(A5)            dump_vec
FC0274 2B6D044E0436           move.l   $44E(A5),$436(A5)            _v_bs_ad to _memtop
FC027A 2B6D04FA0432           move.l   $4FA(A5),$432(A5)            end_os to _membot
FC0280 4FF900004DB8           lea      $4DB8,A7                     Initialize system stack pointer
FC0286 3B7C00080454           move.w   #8,$454(A5)                  nvbls
FC028C 50ED0444               st       $444(A5)                     _fverify

FC0290 3B7C00030440           move.w   #3,$440(A5)                  seek rate to 3 ms
FC0296 2B7C0000167A04C6       move.l   #$167A,$4C6(A5)              _dskbufp
FC029E 3B7CFFFF04EE           move.w   #-1,$4EE(A5)                 clear dumpflg
FC02A4 2B7C00FC000004F2       move.l   #$FC0000,$4F2(A5)            _sysbase to ROM start
FC02AC 2B7C0000093A04A2       move.l   #$93A,$4A2(A5)               savptr for BIOS
FC02B4 2B7C00FC05C0046E       move.l   #$FC0%C0,$46E(A5)            swv_ vec for monitor change to rts
FC02BC 47FA0466               lea      $FC0724(PC),A3               Address rte
FC02C0 49FA02FE               lea      $FC05C0(PC),A4               Address rts
FC02C4 0CB9FA52235F00FA0000   cmp.l    #$FA52235F,$FA0000           Diagnostic cartridge inserted ?
FC02CE 6726                   beq      $FC02F6                      Yes
FC02D0 43FA0748               lea      $FC0A1A(PC),A1               Indicate address for exception
FC02D4 D3FC02000000           add.l    #$2000000,A1                 Vector number in bits 24-31 to 2
FC02DA 41F900000008           lea      $8,A0                        Start with Bus Error
FC02E0 303C003D               move.w   #$3D,D0                      62 vectors
FC02E4 20C9                   move.l   A1,(A0)+                     Set vector
FC02E6 D3FC01000000           add.l    #$1000000,A1                 Increment vector number
FC02EC 51C8FFF6               dbra     D0,$FC02E4                   Initialize next exception vector
FC02F0 23CB00000014           move.l   A3,$14                       'Division by Zero' to rte
FC02F6 2B7C00FC06340070       move.l   #$FC0634,112(A5)             VBL interrupt, IPL 4
FC02FE 2B7C00FC061E0068       move.l   #$FC061E,104(A5)             HBL interrupt, IPL 2
FC0306 2B4B0088               move.l   A3,136(A5)                   TRAP #2 to rte
FC030A 2B7C00FC074E00B4       move.l   #$FC074E,180(A5)             TRAP #13 vector
FC0312 2B7C00FC074800B8       move.l   #$FC0748,184(A5)             TRAP #14 vector
FC031A 2B7C00FC9CA20028       move.l   #$FC9CA2,40(A5)              LINE A vector
FC0322 2B4C0400               move.l   A4,$400(A5)                  etv_timer to rts
FC0326 2B7C00FC07440404       move.l   #$FC0744,$404(A5)            etv_critic vector
FC032E 2B4C0408               move.l   A4,$408(A5)                  etv_term to rts
FC0332 41ED04CE               lea      $4CE(A5),A0                  _vbl_list
FC0336 2B480456               move.l   A0,$456(A5)                  as pointer to _vblqueue
FC033A 303C0007               move.w   #7,D0                        8 entries
FC033E 4298                   clr.l    (A0)+                        clear
FC0340 51C8FFFC               dbra     D0,$FC033E                   Next entry

FC0344 61001E6E               bsr      $FC21B4                      Initialize mfp
FC0348 7002                   moveq.1  #2,D0                        Bit 2
FC034A 6100024A               bsr      $FC0596                      cartscan
FC034E 1039FFFF8260           move.b   $FFFF8260,D0                 Video resolution
FC0354 C03C0003               and.b    #3,D0                        Isolate bits 0 and l
FC0358 B03C0003               cmp.b    #3,D0                        Invalid value?
FC035C 6602                   bne      $FC0360                      No
FC035E 7002                   moveq.1  #2,D0                        Replace with 2 for high resolution
FC0360 13C00000044C           move.b   D0,$44C                      sshiftmod
FC0366 1039FFFFFA01           move.b   $FFFFFA01,D0                 mfp gpip, monomon
FC036C 6B18                   bmi      $FC0386                      No monochrome monitor?
FC036E 4DFA0006               lea      $FC0376(PC),A6               No return address
FC0372 60000970               bra      $FC0CE4
FC0376 13FC0002FFFF8260       move.b   #2,$FFFF8260                 High resolution
FC037E 13FC00020000044C       move.b   #2,$44C                      sshiftmod
FC0386 4EB900FCA7C4           jsr      $FCA7C4                      Initialize screen output
FC038C 0C3900010000044C       cmp.b    #1,$44C                      sshiftmod
FC0394 660A                   bne      $FC03A0                      Not medium resolution ?
FC0396 33F9FFFF825EFFFF8246   move.w   $FFFF825E,$FFFF8246          Copy color 15(black) to color 3
FC03A0 2B7C00FC0020046E       move.1   #$FC0020,$46E(A5)            swv_vec to teset
FC03A8 33FC000100000452       move.w   #1,$452                      vblsem
FC03B0 4240                   clr.w    D0                           Bit 0
FC03B2 610001E2               bsr      $FC0596                      cartscan
FC03B6 46FC2300               move.w   #$2300,SR                    IPL 3
FC03BA 7001                   moveq.1  #1,D0                        Bit 1
FC03BC 610001D8               bsr      $FC0596                      cartscan
FC03C0 61004798               bsr      $FC4B5A                      Initialize DOS
FC03C4 3F3900FC001E           move.w   $FC001E,-(A7)                Creation date in DOS format
FC03CA 3F3C002B               move.w   #$2B,-(A7)                   Set date
FC03CE 4E41                   trap     #1                           GEMDOS
FC03D0 584F                   addq.w   #4,A7                        Correct stack pointer
FC03D2 610000B8               bsr      $FC048C                      Boot from floppy

FC03D6 610000D0               bsr      $FC04A8                      Boot from DMA bus
FC03DA 61000944               bsr      $FC0D20                      Execute reset-resident programs
FC03DE 4A7900000482           tst.w    $482                         _cmdload ?
FC03E4 6718                   beq      $FC03FE                      No
FC03E6 61004194               bsr      $FC457C                      Turn cursor on
FC03EA 61000728               bsr      $FC0B14                      autoexec, execute programs in AUTO folder
FC03EE 487A0099               pea      $FC0489(PC)                  Null name
FC03F2 487A0095               pea      $FC0489(PC)                  Null name
FC03F6 487A007E               pea      $FC0476(PC)                  'COMMAND.PRG'
FC03FA 4267                   clr.w    -(A7)                        Load and start program
FC03FC 605C                   bra      $FC045A                      Load to program
FC03FE 61000714               bsr      $FC0B14                      autoexec, execute programs in AUT0 folder
FC0402 41FA0066               lea      $FC046A(PC),A0               'PATH='
FC0406 327C0840               move.w   #$840,A1                     Address for environment
FC040A 0C100023               cmp.b    #35,(A0)                     '#', place holder for drive?
FC040E 6602                   bne      $FC0412                      No
FC0410 2449                   move.l   Al,A2                        Save address
FC0412 12D8                   move.b   (A0)+,(A1)+                  Copy filenames
FC0414 6AF4                   bpl      $FC040A                      Next byte
FC0416 103900000446           move.b   $446,D0                      _bootdev
FC041C D03C0041               add.b    #$41,D0                      'A'
FC0420 1480                   move.b   D0,(A2)                      Insert drive number
FC0422 487900000840           pea      $840                         environment
FC0428 487900FC0489           pea      $FC0489                      Null name
FC042E 487A0059               pea      $FC0489(PC)                  Null name
FC0432 3F3C0005               move.w   #5,-(A7)                     Create base page
FC0436 3F3C004B               move.w   #$4B,-(A7)                   exec
FC043A 4E41                   trap     #1                           GEMD0S
FC043C DEFC000E               add.w    #$E,A7                       Correct stack pointer
FC0440 2040                   move.l   D0,A0                        Address of the base page
FC0442 2179000004FE0008       move.l   $4FE,8(A0)                   exec os, start address AES and Desktop
FC044A 487900000840           pea      $840                         environment

FC0450 2F08                   move.l   A0,-(A7)                     Address of the base page
FC0452 487A0035               pea      $FC0489(PC)                  Null name
FC0456 3F3C0004               move.w   #4,-(A7)                     Start program
FC045A 3F3C004B               move.w   #$4B,-(A7)                   exec
FC045E 4E41                   trap     #1                           GEMDOS
FC0460 DEFC000E               add.w    #$E,A7                       Correct stack pointer
FC0464 4EF900FC0020           jmp      $FC0020                      it return to reset
FC046A 504154483D00           dc.b     'PATH=',0
FC0470 233A5C0000FF           dc.b     '#:\',0,0,$FF
FC0476 434F4D4D414E442E       dc.b     'COMMAND.PRG',0
FC047E 50524700
FC0482 47454D2E505247         dc.b     'GEM.PRG'
FC0489 000000                 dc.b     0,0,0
*****************************************************************   Boot from floppy
FC048C 7003                   moveq.l  #3,D0                        Bit 3
FC048E 61000106               bsr      $FC0596                      cartscan
FC0492 20790000047A           move.l   $47A,A0                      hdv_boot
FC0498 4E90                   jsr      (A0)                         Load boot sector
FC049A 4A40                   tst.w    D0                           Executable ?
FC049C 6608                   bne      $FC04A6                      No
FC049E 41F90000167A           lea      $167A,A0                     Address of the disk buffer
FC04A4 4E90                   jsr      (A0)                         Execute boot sector
FC04A6 4E75                   rts
*****************************************************************   dmaboot, load boot sector from DMA bus
FC04A8 7E00                   moveq.l  #0,D7                        Begin with device 0
FC04AA 612A                   bsr      $FC04D6                      dmaread, load boot sector
FC04AC 6620                   bne      $FC04CE                      Error, test next device
FC04AE 2079000004C6           move.l   $4C6,A0                      _dskbufp
FC04B4 323C00FF               move.w   #$FF,D1                      $100 words
FC04B8 7000                   moveq.l  #0,D0                        Clear sum
FC04BA D058                   add.w    (A0)+,D0                     Generate checksum
FC04BC 51C9FFFC               dbra     D1,$FC04BA                   Next word

FC04C0 B07C1234               cmp.w    #$1234,D0                    Executable sector?
FC04C4 6608                   bne      $FC04CE                      No
FC04C6 2079000004C6           move.l   $4C6,A0                      _dskbufp
FC04CC 4E90                   jsr      (A0)                         Execute boot sector
FC04CE DE3C0020               add.b    #$20,D7                      Next device number
FC04D2 66D6                   bne      $FC04AA                      All 8 devices?
FC04D4 4E75                   rts

*****************************************************************   dmaread, load boot sector from DMA bus
FC04D6 4DF9FFFF8606           lea      $FFFF8606,A6                 DMA control register
FC04DC 4BF9FFFF8604           lea      $FFFF8604,A5                 DMA data register
FC04E2 50F90000043E           st       $43E                         set flock
FC04E8 2F39000004C6           move.l   $4C6,-(A7)                   _dskbufp
FC04EE 13EF0003FFFF860D       move.b   3(A7),$FFFF860D
FC04F6 13EF0002FFFF860B       move.b   2(A7),$FFFF860B              Set DMA address
FC04FE 13EF0001FFFF8609       move.b   1(A7),$FFFF8609
FC0506 584F                   addq.w   #4,A7                        Correct stack pointer
FC0508 3CBC0098               move.w   #$98,(A6)                    Toggle R/W,
F0050C 3CBC0198               move.w   #$198,(A6)                   to allow READ
FC0510 3CBC0098               move.w   #$98,(A6)
FC0514 3ABC0001               move.w   #1,(A5)                      sector-count register to l
FC0518 3CBC0088               move.w   #$88,(A6)                    Select DMA bus
FC051C 1007                   move.b   D7,D0                        Device number << 5
FC051E 803C0008               or.b     #8,D0                        OR with read command
FC0522 4840                   swap     D0
FC0524 303C0088               move.w   #$88,D0
FC0528 614C                   bsr      $FC0576                      Output byte to DMA bus
FC052A 662A                   bne      $FC0556                      timeout, terminate
FC052C 7C03                   moveq.l  #3,D6                        Counter to 4
FC052E 41FA0036               lea      $FC0566(PC),A0               Pointer to command word table
FC0532 2018                   move.l   (A0)+,D0                     Get command
FC0534 6140                   bsr      $FC0576                      Output on DMA bus
FC0536 661E                   bne      $FC0556                      timeout, terminate

FC0538 51CEFFF8               dbra     D6,$FC0532                   Next command
F0053C 2ABC0000000A           move.l   #$A,(A5)                     Send byte 6 (last byte)
FC0542 323C0190               move.W   #$190,D1
FC0546 6132                   bsr      $FC057A                      Write byte
FC0548 660C                   bne      $FC0556                      timeout, terminate
FC054A 3CBC008A               move.w   #$8A,(A6)                    Select status register
FC054E 3015                   move.w   (A5),D0                      Read status
FC0550 C07C00FF               and.w    #$FF,D0                      Isolate bits 0-7
FC0554 6702                   beq      $FC0558                      ok
FC0556 70FF                   moveq.1  #-1,D0                       Return code for error
FC0558 3CBC0080               move.w   #$80,(A6)                    DMA chip back to floppy operation
FC055C 4A00                   tst.b    D0                           Set flags
FC055E 51F90000043E           sf       $43E                         Clear flock
FC0564 4E75                   rts

*****************************************************************   Command words for DMA chip
FC0566 0000008A               dc.b     $0000008A
FC056A 0000008A               dc.b     $0000008A
FC056E 0000008A               dc.b     $0000008A
FC0572 0001008A               dc.b     $0001008A

*****************************************************************   wcbyte, output byte to DMA bus
FC0576 2A80                   move.l   D0,(A5)                      Output byte
FC0578 720A                   moveq.l  #10,D1                       Wait 1/20 second
FC057A D2B9000004BA           add.l    $4BA,D1                      _hz_200
FC0580 08390005FFFFFA01       btst     #5,$FFFFFA01                 mfp gpip, command processed?
FC0588 670A                   beq      $FC0594                      Yes
FC058A B2B9000004BA           cmp.l    $4BA,D1                      _hz_200, time run out?
FC0590 66EE                   bne      $FC0580                      No, keep waiting
FC0592 72FF                   moveq.l  #-1,D1                       Return code for error
FC0594 4E75                   rts

*****************************************************************   cartscan, test cartridge
FC0596 41F900FA0000           lea      $FA0000,A0                   Address of the cartridge
FC059C 0C98ABCDEF42           cmp.l    #$ABCDEF42,(A0)+             User cartridge ?
FC05A2 661A                   bne      $FC05BE                      No
FC05A4 01280004               btst     D0,4(A0)                     Corresponding bit set?
FC05A8 670E                   beq      $FC05B8                      No
FC05AA 48E7FFFE               movem.l  D0-D7/A0-A6,-(A7)            Save registers
FC05AE 20680004               move.l   4(A0),A0                     Get address of the routine
FC05B2 4E90                   jsr      (A0)                         and execute
FC05B4 4CDF7FFF               movem.l  (A7)+,D0-D7/A0-A6            Save registers
FC05B8 4A90                   tst.l    (A0)                         Further use?
FC05BA 2050                   move.l   (A0),A0                      Get address
FC05BC 66E6                   bne      $FC05A4                      Yes, keep testing
FC05BE 4E75                   rts

*****************************************************************
FC05C0 4E75                   rts                                   rts for dummy routines

*****************************************************************   Memory test
FC05C2 D1C1                   add.l    D1,A0                        Start address
FC05C4 4240                   clr.w    D0                           Clear bit pattern
FC05C6 43E801F8               lea      $1F8(A0),A1                  End address
FC05CA B058                   cmp.W    (A0)+,D0                     Test for bit pattern
FC05CC 6608                   bne      $FC05D6                      Not equal, error
FC05CE D07CFA54               add.w    #$FA54,D0                    Next bit pattern
FC05D2 B3C8                   cmp.l    A0,A1                        End address reached?
FC05D4 66F4                   bne      $FC05CA                      No
FC05D6 4ED5                   jmp      (A5)                         Back to call

*****************************************************************   Memory configuration valid?
FC05D8 9BCD                   sub.l    A5,A5                        Clear A5
FC05DA 0CAD752019F30420       cmp.l    #$752019F3,$420(A5)          magic in memvalid ?


FC05E2 6608                   bne      $FC05EC                      No
FC05E4 0CAD237698AA043A       cmp.l    #$237698AA,$43A(A5)          magic in memval2 ?
FC05EC 4ED6                   jmp (A6)                              Back to call

*****************************************************************   Zero-bytes to clear
FC05EE 00000000               dc.l     0
FC05F2 00000000               dc.l     0
FC05F6 00000000               dc.l     0
FC05FA 00000000               dc.l     0

*****************************************************************   Standard color palette
FC05FE 0777070000700770       dc.w     $777,$700,$070,$770          White, red, green, yellow
FC0606 0007070700770555       dc.w     $007,$707,$077,$555          blue, magenta, cyan, light gray
FC060E 0333073303730773       dc.w     $333,$733,$373,$773          gray, lt. red, lt. green, lt. yellow
FC0616 0337073703770000       dc.w     $377,$737,$377,$000          lt. blue, lt. magenta, lt. cyan, black

*****************************************************************   HBL interrupt
FC061E 3F00                   move.w   D0,-(A7)                     Save D0
FC0620 302F0002               move.w   2(A7),D0                     Save status from stack
FC0624 C07C0700               and.w    #$700,D0                     Isolate IPL mask
FC0628 6606                   bne      $FC0630                      Not IPL 0 ?
FC062A 006F03000002           or.W     #$300,2(A7)                  Else set IPL 3
FC0630 301F                   move.w   (A7)+,D0                     D0 back again
FC0632 4E73                   rte

*****************************************************************   VBL interrupt
FC0634 52B900000466           addq.l   #1,$466                      _frclock
FC063A 537900000452           subq.w   #1,$452                      vblsem
FC0640 6B0000DC               bmi      $FC071E                      VBl routine disabled?
FC0644 48E7FFFE               movem.l  D0-D7/A0-A6,-(A7)            Save registers
FC0648 52B900000462           addq.l   #1,$462                      _vbclock
FC064E 9BCD                   sub.l    A5,A5                        Clear AS
FC0650 1039FFFF8260           move.b   $FFFF8260,D0                 Get video resolution

FC0656 C03C0003               and.b    #3,D0                        Isolate bits 0 and 1
FC065A BO3C0002               cmp.b    #2,D0                        High resolution ?
FC065E 6C18                   bge      $FC0678                      Yes
FC0660 08390007FFFFFA01       btst     #7,$FFFFFAO1                 Monochrome monitor connected ?
FC0668 6634                   bne      $FCO069E                     No
FC066A 303C07D0               move.w   #$7D0,D0                     Counter
FC066E 51C8FFFE               dbra     D0,$FC066E                   Delay loop
FC0672 103C0002               move.b   #2,D0                        High resolution
FC0676 6016                   bra      $FC068E

FC0678 08390007FFFFFA01       btst     #7,$FFFFFA01                 Monochrome monitor connected ?
FC0680 671C                   beq      $FC069E                      Yes
FC0682 102D044A               move.b   $44A(A5),D0                  defshiftmod
FC0686 B03C0002               cmp.b    #2,D0                        High resolution ?
FC068A 6D02                   blt      $FC068E                      No
FC068C 4200                   clr.b    D0
FC068E 1B40044C               move.b   D0,$44C(A5)                  sshiftmod
FC0692 13C0FFFF8260           move.b   D0,$FFFF8260                 shiftmd, select resolution
FC0698 206D046E               move.l   $46E(A5),A0                  Swv_vec
FC069C 4E90                   jsr      (A0)                         Default is reset
FC069E 6100401A               bsr      $FC46BA                      Flash cursor
FC06A2 9BCD                   sub.l    A5,A5                        Clear A5
FC06A4 4AAD045A               tst.l    $45A(A5)                     colorptr
FC06A8 6718                   beq      $FC06C2                      Don't load color palette?
FC06AA 206D045A               move.l   $45A(A5),A0                  colorptr
FC06AE 43F9FFFF8240           lea      $FFFF8240,Al                 Address of the color register
FC06B4 303C000F               move.w   #$F,D0                       16 colors
FC06B8 32D8                   move.w   (A0)+,(A1)+                  copy
FC06BA 51C8FFFC               dbra     D0,$FC06B8                   next color
FC06BE 42AD045A               clr.l    $45A(A5)                     colorptr
FC06C2 4AAD045E               tst.l    $45E(A5)                     screenpt
FC06C6 671A                   beq      $FC06E2                      Don't change video address?

FC06C8 2B6D045E044E           move.l   $45E(A5),$44E(A5)            screenpt to _v_bs_ad
FC06CE 202D044E               move.l   $44E(A5),D0                  _v_bs_ad
FC06D2 E088                   lsr.l    #8,D0                        Bits 8-15
FC06D4 13C0FFFF8203           move.b   D0,$FFFF8203                 as dbasel
FC06DA E048                   lsr.w    #8,D0                        Bits 16-23
FC06DC 13C0FFFF8201           move.b   D0,$FFFF8201                 as dbaseh
FC06E2 610012CC               bsr      $FC19B0                      flopvbl, floppy VBL routine
FC06E6 3E3900000454           move.w   $454,D7                      nvbls
FC06EC 6720                   beq      $FC070E                      VBL list empty?
FC06EE 5387                   subq.l   #1,D7                        dbra counter
FC06F0 207900000456           move.l   $456,A0                      _vblqueue
FC06F6 2258                   move.l   (A0)+,A1                     Get address of the routine
FC06F8 B3FC00000000           cmp.l    #0,A1                        Not used?
FC06FE 670A                   beq      $FC070A                      To next routine
FC0700 48E70180               movem.l  D7/A0,-(A7)                  Save registers
FC0704 4E91                   jsr      (Al)                         Execute routine
FC0706 4CDF0180               movem.l  (A7)+,D7/A0                  Restore registers
FC070A 51CFFFEA               dbra     D7,$FC06F6                   Next routine
FC070E 9BCD                   sub.l    A5,A5                        Clear AS
FC0710 4A6D04EE               tst.w    $4EE(A5)                     _dumpflg
FC0714 6604                   bne      $FC071A                      Not set
FC0716 61000502               bsr      $FC0C1A                      Execute hardcopy
FC071A 4CDF7FFF               movem.l  (A7)+,D0-D7/A0-A6            Restore registers
FC071E 527900000452           addq.w   #1,$452                      vblsem
FC0724 4E73                   rte

*****************************************************************   wvbl, wait for VBL
FC0726 40E7                   move.w   SR,-(A7)                     Save status
FC0728 027CF8FF               and.w    #$F8FF,SR                    IPL 0, enable interrupts
FC072C 203900000466           move.l   $466,D0                      _frclock
FC0732 BOB900000466           cmp.l    $466,D0                      _frclock not yet incremented?
FC0738 67F8                   beq      $FC0732                      No, wait

FC073A 46DF                   move .w  (A7)+,SR                     Restore status
FC073C 4E75                   rts

*****************************************************************   Critical error handler
FC073E 2F3900000404           move.l   $404,-(A7)                   etv_critic
FC0744 70FF                   moveq.l  #-1,D0                       Default to error
FC0746 4E75                   rts                                   Execute routine

*****************************************************************   TRAP #14
FC0748 41FA0084               lea      $FC07CE(PC),A0               Address of the TRAP #14 routines
FC074C 6004                   bra      $FC0752

*****************************************************************   TRAP #13
FC074E 41FA004C               lea      $FC079C(PC),A0               Address of the TRAP #13 routines
FC0752 2279000004A2           move.l   $4A2,A1                      Load savptr
FC0758 301F                   move.w   (A7)+,D0                     Status register to DO
FC075A 3300                   move.w   D0,-(A1)                     Save in save area
FC075C 231F                   move.l   (A7)+,-(A1)                  Return address in save area
FC075E 48E11F1F               movem.l  D3-D7/A3-A7,-(A1)            Register in save area
FC0762 23C9000004A2           move.l   A1,$4A2                      Update savptr
FC0768 0800000D               btst     #13,D0                       Call from supervisor mode?
FC076C 6602                   bne      $FC0770                      Yes
FC076E 4E6F                   move.l   USP,A7                       Else use USP
FC0770 301F                   move.w   (A7)+,D0                     Get function number from stack
FC0772 B058                   cmp.w    (A0)+,D0                     Compare with maximum number
FC0774 6C10                   bge      $FC0786                      Too big, ignore
FC0776 E548                   lsl.w    #2,D0                        As long index
FC0778 20300000               move.l   0(A0,D0.w),D0                Get address of the routine
FC077C 2040                   move.l   D0,A0                        To A0
FC077E 6A02                   bpl      $FC0782                      Direct address
FC0780 2050                   move.l   (A0),A0                      Else use indirect
FC0782 9BCD                   sub.l    A5,A5                        Clear A5

FC0784 4E90                   jsr      (A0)                         Execute routine
FC0786 2279000004A2           move.l   $4A2,A1                      Get savptr
FC078C 4CD9F8F8               movem.1  (A1)+,D3-D7/A3-A7            Restore registers
FC0790 2F19                   move.l   (A1)+,-(A7)                  Return address on stack
FC0792 3F19                   move.w   (A1)+,-(A7)                  Status on stack
FC0794 23C9000004A2           move.l   A1,$4A2                      Update savptr
FC079A 4E73                   rte

*****************************************************************   Addresses of the TRAP #13 routines
FC079C 000C                   dc.w     12                           Number of routines
FC079E 00FC0910               dc.l     $FC0910                      0, getmpb
FC07A2 00FC0876               dc.l     $FC0876                      1, bconstat
FC07A6 00FC087C               dc.l     $FC087C                      2, bconin
FC07AA 00FC0888               dc.l     $FC0888                      3, bconout
FC07AE 80000476               dc.l     $476+$80000000               4, (indirect) rwabs
FC07B2 00FC093C               dc.l     $FC093C                      5, setexec
FC07B6 00FC0954               dc.l     $FC0954                      6, tickcal
FC07BA 80000472               dc.l     $472+$80000000               7, (indirect) getbpb
FC07BE 00FC0882               dc.l     $FC0882                      8, bcostat
FC07C2 8000047E               dc.l     $47E+$80000000               9, (indirekct) mediach
FC07C6 00FC08F8               dc.l     $FC08F8                      10, drvmap
FC07C8 00FC08FE               dc.l     $FC08FE                      11, shift

*****************************************************************   Addresses of the TRAP #14 routines
FC07CE 0028                   dc.w     40                           Number of routines
FC07D0 00FC2DDC               dc.l     $FC2DDC                      O, initmouse
FC07D4 00FC05C0               dc.l     $FC05C0                      1, rts
FC07D8 00FC095C               dc.l     $FC095C                      2, physbase
FC07DC 00FC0970               dc.l     $FC0970                      3, logbase
FC07E0 00FC0976               dc.l     $FC0976                      4, getrez
FC07E4 00FC0982               dc.l     $FC0982                      5, setscreen
FC07E8 00FC09D0               dc.l     $FC09D0                      6, setpalette

FC07EC 00FC09D8               dc.l     $FC09D8                      7, setcolor
FC07FO 00FC159E               dc.l     $FC159E                      8, floprd
FC07F4 00FC167C               dc.l     $FC167C                      9, flopwr
FC07F8 00FC1734               dc.l     $FC1734                      10, flopfmt
FC07FC 00FC0DDC               dc.l     $FC0DDC                      11, getdsb
FC0800 00FC1E40               dc.l     $FC1E40                      12, midiws
FC0804 00FC240E               dc.l     $FC240E                      13, mfpint
FC0808 00FC2732               dc.l     $FC2732                      14, iorec
FC080C 00FC275A               dc.l     $FC275A                      15, rsconf
FC0810 00FC2EE2               dc.l     $FC2EE2                      16, keytrans
FC0814 00FC132C               dc.l     $FC132C                      17, rand
FC0818 00FC1414               dc.l     $FC1414                      18, protobt
FC081C 00FC18CE               dc.l     $FC18CE                      19, flopver
FC0820 00FC0C1A               dc.l     $FC0C1A                      20, dumpit
FC0824 00FC46F2               dc.l     $FC46F2                      21, cursconf
FC0828 00FC1D76               dc.l     $FC1D76                      22, settime
FC082C 00FC1D5C               dc.l     $FC1D5C                      23, gettime
FC0830 00FC2F0E               dc.l     $FC2F0E                      24, bioskeys
FC0834 00FC1FBE               dc.l     $FC1FBE                      25, ikbdws
FC0838 00FC2438               dc.l     $FC2438                      26, jdisint
FC083C 00FC2472               dc.l     $FC2472                      27, jenabint
FC0840 00FC2D4C               dc.l     $FC2D4C                      28, giaccess
FC0844 00FC2DB6               dc.l     $FC2DB6                      29, offgibit
FC0848 00FC2D90               dc.l     $FC2D90                      30, ongibit
FC084C 00FC2EA6               dc.l     $FC2EA6                      31, xbtimer
FC0850 00FC2F28               dc.l     $FC2F28                      32, dosound
FC0854 00FC2F3C               dc.l     $FC2F3C                      33, setprt
FC0858 00FC2F70               dc.l     $FC2F70                      34, ikbdvecs
FC085C 00FC2F4E               dc.l     $FC2F4E                      35, kbrate
FC0860 00FC30AE               dc.l     $FC30AE                      36, prtblk
FC0864 00FC0726               dc.l     $FC0726                      37, wvbl
FC0868 00FC0870               dc.l     $FC0870                      38, supexec
FC086C 00FC09FE               dc.l     $FC09FE                      39, puntaes

*****************************************************************   supexec
FC0870 206F0004               move.l   4(A7),A0                     Get address
FC0874 4ED0                   jmp      (A0)                         Execute routine in the supervisor mode

*****************************************************************   bconstat, get input status
FC0876 41FA0020               lea      $FC0898(PC),A0               Status table
FC087A 6010                   bra      $FC088C

*****************************************************************   bconin, input
FC087C 41FA0032               lea      $FC08B0(PC),A0               Input table
FC0880 600A                   bra      $FC088C

*****************************************************************   bcostat, get output status
FC0882 41FA0044               lea      $FC08C8(PC),A0               Status table
FC0886 6004                   bra      $FC088C

*****************************************************************   bconout, output
FC0888 41FA0056               lea      $FC08E0(PC),A0               Output table
FC088C 302F0004               move.w   4(A7),D0                     Device number
FC0890 E548                   lsl.W    #2,D0                        times 4
FC0892 20700000               move.l   0(A0,D0.w),A0                Get address of the routine
FC0896 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   Input status
FC0898 00FC05C0               dc.l     $FC05C0                      rts
FC089C 00FC1F48               dc.l     $FC1F48                      RS 232 status
FC08A0 00FC1FD2               dc.l     $FC1FD2                      Console status
FC08A4 00FC1E54               dc.l     $FC1E54                      MIDI status
FC08A8 00FC05C0               dc.l     $FC05C0                      rts
FC08AC 00FC05C0               dc.l     $FC05C0                      rts

*****************************************************************   Input
FC08B0 00FC1F14               dc.l     $FC1F14                      Parallel port
FC08B4 00FC1F5E               dc.l     $FC1F5E                      RS 232 input
FC08B8 00FC1FE8               dc.l     $FC1FE8                      Console input
FC08BC 00FC1E70               dc.l     $FC1E70                      MIDI input
FC08C0 00FC05C0               dc.l     $FC05C0                      rts
FC08C4 00FC05C0               dc.l     $FCO0C0                      rts

*****************************************************************   Output status
FC08C8 00FC1F34               dc.l     $FC1F34                      Centronics status
FC08CC 00FC1F6E               dc.l     $FCIF6E                      RS 232 status
FC08D0 00FC2018               dc.l     $FC2018                      Console status
FC08D4 00FC1F92               dc.l     $FC1F92                      MIDI status
FC08D8 00FC1E14               dc.l     $FC1E14                      IKBD status
FC08DC 00FC05C0               dc.l     $FC05C0                      rts

*****************************************************************   Output
FC08E0 00FC1EA0               dc.l     $FC1EA0                      Centronics output
FC08E4 00FC1F86               dc.l     $FC1F86                      RS 232 output
FC08E8 00FC41AC               dc.l     $FC41AC                      Console output
FC08EC 00FC1E26               dc.l     $FC1E26                      MIDI output
FC08F0 00FC1FA4               dc.l     $FC1FA4                      IKBD output
FC08F4 00FC41A0               dc.l     $FC41A0                      ASCII output

*****************************************************************   drvmap, active drives
FC08F8 202D04C2               move.l   $4C2(A5),D0                  _drvbits
FC08FC 4E75                   rts       én1;¢a3;

*****************************************************************   Shift, keyboard status
FC08FE 7000                   moveq.l  #0,D0
FC0900 102D0E1B               move.b   $E1B(A5),D0                  Shift status
FC0904 322F0004               move.w   4(A7),D1                     new shift status
FC0908 6B04                   bmi      $FC090E                      -l, not set
FC090A 1B410E1B               move.b   D1,$E1B(A5)                  Use new status
FC090E 4E75                   rts

*****************************************************************   getmpb, Memory Parameter Block
FC0910 206F0004               move.l   4(A7),A0                     Address of the mpb
FC0914 43ED048E               lea      $48E(A5),A1                  themd, Memory Descriptor
FC0918 2089                   move.l   A1,(A0)                      mp_mfl = address of the MD
FC091A 42A80004               clr.     4(A0)                        mp_mal = zero
FC091E 21490008               move.l   A1,8(A0)                     mp_rover = address of the MD
FC0922 4291                   clr.l    (A1)                         clear m_link
FC0924 236D04320004           move.l   $432(A5),4(A1)               _membot as m_start
FC092A 202D0436               move.l   $436(A5),D0                  _memtop
FC092E 90AD0432               sub.1    $432(A5),D0                  minus _membot
FC0932 23400008               move.l   D0,8(A1)                     length m_length
FC0936 42A9000C               clr.l    12(A1)                       m_own = zero
FC093A 4E75                   rts       énl;éa3;

*****************************************************************   setexc, set exception vector
FC093C 302F0004               move.w   4(A7),D0                     Vector number
FC0940 E548                   lsl.w    #2,D0                        times 4
FC0942 91C8                   sub.l    A0,A0                        Clear A0
FC0944 41F00000               lea      0(A0,D0.w),A0                Get address of the vector
FC0948 2010                   move.l   (A0),D0                      Old vector to D0
FC094A 222F0006               move.l   6(A7),D1                     New vector
FC094E 6B02                   bmi      $FC0952                      Negative, don't set
FC0950 2081                   move.l   D1,(A0)                      Set new vector
FC0952 4E75                   rts

*****************************************************************   tickcal, timer value in milliseconds
FC0954 4280                   clr.l    D0
FC0956 302D0442               move.w   $442(A5),D0                  _timer_ms
FC095A 4E75                   rts

*****************************************************************   physbase, physical video address
FC095C 7000                   moveq.l  #0,D0
FC09SE 1039FFFF8201           move.b   $FFFF8201,D0                 dbaseh
FC0964 E148                   lsl.w    #8,D0
FC0966 1039FFFF8203           move.b   $FFFF8203,D0                 dbasel
FC096C E188                   lsl.l    #8,D0                        Result in D0
FC096E 4875                   rts

*****************************************************************   logbase, logical video address
FC0970 202D044E               move.l   $44E(A5),D0                  _v_bs_ad
FC0974 4E75                   rts

*****************************************************************   getrez, get video resolution
FC0976 7000                   moveq.l  #0,D0
FC0978 102D8260               move.b   $FFFF8260(A5),D0             sshiftmd
FC097C C03C0003               and.b    #3,D0                        lsolate bits 0 and 1
FC0980 4E75                   rts

*****************************************************************   setscreen, set screen address
FC0982 4AAF0004               tst.l    4(A7)                        Logical address
FC0986 6B06                   bmi      $FC098E                      Don't set?
FC0988 2B6F0004044E           move.l   4(A7),$44E(A5)               _v_bs_ad
FC098E 4AAF0008               tst.l    8(A7)                        physical address
FC0992 6B10                   bmi      $FC09A4                      Don't set?
FC0994 13EF0009FFFF8201       move.b   9(A7),$FFFF8201              dbaseh
FC099C 13EF000AFFFF8203       move.b   10(A7),$FFFF8203             dbasel
FC09A4 4A6F000C               tst.w    12(A7)                       Video resolution
FC09A8 6B24                   bmi      $FC09CE                      don't set
FC09AA 1B6F000D044C           move.b   13(A7),$44C(A5)              sshiftmod
FC09B0 6100FD74               bsr      $FC0726                      Wvbl, wait for VBL
FC09B4 13ED044CFFFF8260       move.b   $44C(A5),$FFFF8260           sshiftmod to shiftmd
FC09BC 426D0452               clr.w    $452(A5)                     vblsem, VBL disabled
FC09C0 4EB900FCA7C4           jsr      $FCA7C4                      Initialize screen output
FC09C6 33FC000100000452       move.w   #1,$452                      vblsem, enable VBL again
FC09CE 4E75                   rts

*****************************************************************   setpalette, load new color palette
FC09D0 2B6F0004045A           move.l   4(A7),$45A(A5)               colorptr, execution in VBL
FC09D6 4E75                   rts

*****************************************************************   setcolor, set single color
FC09D8 322F0004               move.w   4(A7),D1                     Color number
FC09DC D241                   add.w    D1,D1                        times 2
FC09DE C27C001F               and.w    #$1F,D1                      Limit to valid numbers
FC09E2 41F9FFFF8240           lea      $FFFF8240,A0                 Address of color palette
FC09E8 30301000               move.w   0(A0,D1.w),D0                Get color
FC09EC C07C0777               and.w    #$777,D0                     Isolate RGB bits
FC09F0 4A6F0006               tst.w    6(A7)                        New color
FC09F4 6B06                   bmi      $FC09FC                      negative ?
FC09F6 31AF00061000           move.w   6(A7),0(A0,D1.w)             Set color
FC09FC 4E75                   rts

*****************************************************************   puntaes, clear AES and restart
FC09FE 207AF614               move.l   $FC0014(PC),A0               Address os_magic
FC0A02 0C9087654321           cmp.l    #$87654321,(A0)              magic ?
FC0A08 660E                   bne      $FC0A18                      No, AES already disabled
FC0A0A B1F90000042E           cmp.l    $42E,A0                      phystop, AES in ROM ?
FC0A10 6C06                   bge      $FC0A18                      Yes, nothing to do
FC0A12 4290                   clr.l    (A0)                         clear magic
FC0A14 6000F60A               bra      $FC0020                      to reset
FC0A18 4E75                   rts

*****************************************************************   term, end program atter exception
FC0A1A 6102                   bsr      $FC0A1E                      PC on stack
FC0A1C 4E71                   nop
FC0A1E 23DF000003C4           move.l   (A7)+,$3C4                   Save PC including vector number
FC0A24 48F9FFFF00000384       movem.l  D0-D7/A0-A7,$384             Save registers
FC0A2C 4E68                   move.l   USP,A0                       USP
FC0A2E 23C8000003C8           move.l   A0,$3C8                      save
FC0A34 700F                   moveq.l  #15,D0                       16 words
FC0A36 41F9000003CC           lea      $3CC,A0                      Address save area
FC0A3C 224F                   move.l   A7,A1                        Get stack pointer
FC0A3E 30D9                   move.w   (A1)+,(A0)+                  Save 16 words from stack
FC0A40 51C8FFFC               dbra     D0,$FC0A3E                   Next word
FC0A44 23FC1234567800000380   move.l   #$12345678,$380              magic for saved registers
FC0A4E 7200                   moveq.l  #0,D1
FC0A50 1239000003C4           move.b   $3C4,D1                      Vector number to Dl
FC0A56 5341                   subq.w   #1,D1                        in dbra counter
FC0A58 6116                   bsr      $FC0A70                      Output appropriate number of "bombs"
FC0A5A 23FC00000093A000004A2  move.l   #$93A,$4A2                   Reset savptr for BIOS
FC0A64 3F3C0001               move.w   #1,-(A7)                     Return code for error
FC0A68 42A7                   clr.l    -(A7)                        term, end program
FC0A6A 4E41                   trap     #1                           GEMDOS
FC0A6C 6000F5B2               bra      $FC0020                      if return, then reset

*****************************************************************   Write "bombs" to screen
FC0A70 1E39FFFF8260           move.b   $FFFF8260,D7                 shiftmd, get resolution
FC0A76 CE7C0003               and.w    #3,D7                        Isolate significant bits
FC0A7A DE47                   add.w    D7,D7                        as word pointer
FC0A7C 4280                   clr.l    D0
FC0A7E 1039FFFF8201           move.b   $FFFF8201,D0                 dbaseh
FC0A84 E148                   lsl.w    #8,D0
FC0A86 1039FFFF8203           move.b   $FFFF8203,D0                 dbasel
FC0A8C E188                   lsl.l    #8,D0
FC0A8E 2040                   move.l   D0,A0                        yields video address
FC0A90 D0FB702C               add.w    $FC0ABE(PC,D7.w),A0          plus offset for screen center
FC0A94 43F900FC0CC4           lea      $FC0CC4,A1                   Address of the bit pattern for bombs
FC0A9A 3C3C000F               move.w   #$F,D6                       16 raster lines
FC0A9E 3401                   move.w   D1,D2
FC0AA0 2448                   move.l   A0,A2                        Save pointer to start of line
FC0AA2 3A3B7022               move.w   $FC0AC6(PC,D7.w),D5          Number of words (screen planes)
FC0AA6 30D1                   move.w   (A1),(A0)+                   Write one raster line
FC0AA8 51CDFFFC               dbra     D5, $FC0AA6                  Next screen plane
FC0AAC 51CAFFF4               dbra     D2, $FC0AA2                  Next bomb, same raster line
FC0AB0 9449                   addq.w   #2,A1                        Next word of the bit pattern
FC0AB2 D4FB701A               add.w    $FC0ACE(PC,D7.w),A2          Plus line length, next screen line
FC0AB6 204A                   move.l   A2,A0                        Start of the line
FC0AB8 51CEFFE4               dbra     D6,$FC0A9E                   Next raster line
FC0ABC 4E75                   rts

*****************************************************************   Offset for screen center
FC0ABE 3E80                   dc.w     100*160                      low resolution
FC0AC0 3E80                   dc.w     100*160                      medium resolution
FC0AC2 3E80                   dc.w     200*80                       high resolution
FC0AC4 3E80                   dc.w     200*80                       high resolution

*****************************************************************   Number of screen planes - 1
FC0AC6 0003                   dc.w     3                            low resolution
FC0AC8 0001                   dc.w     1                            medium resolution
FC0ACA 0000                   dc.w     0                            high resolution
FC0ACC 0000                   dc.w     0                            high resolution

*****************************************************************   Line length in bytes
FC0ACE 00A0                   dc.w     160                          low resolution
FC0AD0 00A0                   dc.w     160                          medium resolution
FC0AD2 0050                   dc.w     80                           high resolution
FC0AD4 0050                   dc.w     80                           high resolution

*****************************************************************   fastcopy, copy floppy sector
FC0AD6 206F0004               move.l   4(A7),A0                     Source address
FC0ADA 226F0008               move.l   8(A7),A1                     Destination address
FC0ADE 303C003F               moveq.l  #63,D0                       (63+1)*8 = 512 bytes
FC0AE2 12D8                   move.b   (A0)+,(Al)+
FC0AE4 12D8                   move.b   (A0)+,(Al)+
FC0AE6 12D8                   move.b   (A0)+,(Al)+
FC0AE8 12D8                   move.b   (A0)+,(Al)+                  Copy 8 bytes
FC0AEA 12D8                   move.b   (A0)+,(Al)+
FC0AEC 12D8                   move.b   (A0)+,(Al)+
FC0AEE 12D8                   move.b   (A0)+,(Al)+
FC0AF0 12D8                   move.b   (A0)+,(Al)+
FC0AF2 51C8FFEE               dbra     D0,$FC0AE2                   Next 8 bytes
FC0AF6 4E75                   rts

*****************************************************************   hdv_init, initialize drive data
FC0AF8 2F390000046A           move.l   $46A,-(A7)                   hdv_init
FC0AFE 4E75                   rts                                   Execute routine

*****************************************************************
FC0B00 5C4155544F5C           dc.b     '\AUTO\'
FC0B06 2A2E50524700           dc.b     '*.PRG',0
FC0B0C 12345678               dc.b     $12345678
FC0B10 9ABCDEF0               dc.b     $9ABCDEF0

*****************************************************************   autoexec, execute programs in auto folder
FC0B14 41FAFFEA               lea      $FC0B00(PC),A0               Address of pathname '\AUTO\*.PRG'!
FC0B18 43FAFFEC               lea      $FC0B06(PC),A1               Address of filename '*.PRG'
FC0B1C 23DF0000093A           move.l   (A7)+,$93A                   Save return address
FC0B22 9BCD                   sub.l    A5,A5                        Clear A5
FC0B24 2B48093E               move.l   A0,$93E(A5)                  pathname
FC0B28 2B490942               move.l   A1,$942(A5)                  filename
FC0BZE 202D04C2               move.l   $4C2(A5),D0                  _drvbits
FC0B30 323900000446           move.w   $446,D1                      _bootdev
FC0B36 0300                   btst     D1,D0                        Drive active ?
FC0B38 6736                   beq      $FC0B70                      No, done
FC0B3A 41FAF94D               lea      $FC0489(PC),A0               Pointer to null name
FC0B3E 2F08                   move.l   A0,-(A7)                     Environment
FC0B40 2F08                   move.l   A0,-(A7)                     Command tail
FC0B42 2F08                   move.l   A0,-(A7)                     Filler
FC0B44 3F3C0005               move.w   #5,-(A7)                     Create base page
FC0B48 3F3C004B               move.w   #$4B,-(A7)                   exec
FC0B4C 4E41                   trap     #1                           GEMDOS
FC0B4E DEFC0010               add.w    #$10,A7                      Correct stack pointer
FC0B52 2040                   move.l   D0,A0                        Address of the base page
FC0B54 217C00FC0B780008       move.l   #$FC0B78,8(A0)               Start address
FC0B5C 2F0B                   move.l   A3,-(A7)                     Null string
FC0B5E 2F00                   move.l   D0,-(A7)                     Base page
FC0B60 2F0B                   move.l   A3,-(A7)                     Null string
FC0B62 3F3C0004               move.w   #4,-(A7)                     Start program
FC0B66 3F3C004B               move.w   #$4B,-(A7)                   exec
FC0B6A 4E41                   trap     #1                           GEMDOS
FC0B6C DEFC0010               add.w    #$10,A7                      Correct stack pointer
FC0B70 2F390000093A           move.l   $93A,-(A7)                   Repeat return address
FC0B76 4E75                   rts                                   Back to call

*****************************************************************   Call autoexec program
FC0B78 42A7                   clr.l    -(A7)
FC0B7A 3F3C0020               move.w   #$20,-(A7)                   super
FC0B7E 4E41                   trap     #1                           GEMDOS
FC0B80 5C4F                   addq.w   #6,A7                        Correct stack pointer
FC0B82 2840                   move.l   D0,A4                        Saved stack pointer
FC0B84 2A6F0004               move.l   4(A7),A5                     Base page address
FC0B88 4FED0100               lea      $100(A5),A7                  Stack pointer to end of base page
FC0B8C 2F3C00000100           move.l   #$100,-(A7)                  $100 bytes for base page
FC0B92 2F0D                   move.l   A5,-(A7)                     Address of the program
FC0B94 4267                   clr.w    -(A7)
FC0B96 3F3C004A               move.w   #$4A,-(A7)                   setblock, release memory
FC0B9A 4E41                   trap     #1                           GEMDOS
FC0B9C 5C4F                   addq.w   #6,A7                        Correct stack pointer
FC0B9E 4A40                   tst.w    D0                           ok ?
FC0BA0 666A                   bne      $FC0C0C                      No, terminate
FC0BA2 3F3C0007               move.w   #7,-(A7)                     R/O, hidden and system files
FC0BA6 2F390000093E           move.l   $93E,-(A7)                   Filename
FC0BAC 3F3C004E               move.w   #$4E,-(A7)                   Search first
FC0BB0 7E08                   moveq.l  #8,D7                        Bytes for stack correction
FC0BB2 487900000946           pea      $946                         DMA address for DOS
FC0BB8 3F3C001A               move.W   #$1A,-(A7)                   Setdta
FC0BBC 4E41                   trap     #1                           GEMDOS
FC0BBE 5C4F                   addq.w   #6,A7                        Correct stack pointer
FC0BC0 4B41                   trap     #1                           GEMDOS
FC0BC2 DEC7                   add.w    D7,A7                        Correct stack pointer
FC0BC4 4A40                   tst.w    D0                           Matching file found?
FC0BC6 6644                   bne      $FC0C0C                      No
FC0BC8 20790000093E           move.l   $93E,A0                      pathname
FC0BCE 247900000942           move.l   $942,A2                      filename
FC0BD4 43F900000972           lea      $972,A1                      autoname
FC0BDA 12D8                   move.b   (A0)+,(A1)+                  copy path
FC0BDC B5C8                   cmp.l    A0,A2                        End of path segment?
FC0BDE 66FA                   bne      $FC0BDA                      No, keep copying
FC0BE0 41F900000964           lea      $964,A0                      Name from DMA buffer
FC0BE6 12D8                   move.b   (A0)+,(A1)+                  Append to pathname
FC0BE8 66FC                   bne      $FC0BE6                      End of the name?
FC0BEA 487AF89D               pea      $FC0489(PC)                  Null name
FC0BEE 487AF899               pea      $FC0489(PC)                  Null name
FC0BF2 487900000972           pea      $972                         Filename
FC0BF8 4267                   clr.w    -(A7)                        Load and start program
FC0BFA 3F3C004B               move.w   #$4B,-(A7)                   exec
FC0BFE 4E41                   trap     #1                           GEMDOS
FC0C00 DEFC0010               add.w    #$10,A7                      Correct stack
FC0C04 7E02                   moveq.l  #2,D7                        Bytes for stack correction
FC0C06 3F3C004F               move.w   #$4F,-(A7)                   Search next
FC0C0A 60A6                   bra      $FC0BB2                      Next program
FC0C0C 4FF900004DB8           lea      $4DB8,A7                     Stack pointer to start value
FC0C12 2F390000093A           move.l   $93A,-(A7)                   Return address
FC0C18 4E75                   rts

*****************************************************************   scrdmp, screen hardcopy
FC0C1A 207900000502           move.l   $502,A0                      dump_vec
FC0C20 4E90                   jsr      (A0)                         Execute routine
FC0C22 33FCFFFF000004EE       move.w   #-1,$4EE                     clear _dumpflg
FC0C2A 4E75                   rts

*****************************************************************   scrdmp
FC0C2C 9BCD                   sub.l    A5,A5                        Clear A5
FC0C2E 2B6D044E0992           move.l   $44E(A5),$992(A5)            _v_bs_ad
FC0C34 426D0996               clr.w    $996(A5)                     Offset to zero
FC0C38 4240                   clr.w    D0
FC0C3A 102D044C               move.b   $44C(A5),D0                  sshiftmod
FC0C3E 3B4009A0               move.w   D0,$9A0(A5)                  save
FC0C42 D040                   add.w    D0,D0                        times 2
FC0C44 41FA006A               lea      $FC0CB0(PC),A0               Table for screen resolution
FC0C48 3B7000000998           move.w   0(A0,D0.w),$998(A5)          Get screen width
FC0C4E 3B700006099A           move.w   6(A0,D0.w),$99A(A5)          Get screen height
FC0C54 426D099C               clr.w    $99C(A5)                     Left
FC0C58 426D099E               clr.w    $99E(A5)                     and right to zero
FC0C5C 2B7C00FF824009A4       move.l   #$FF8240,$9A4(A5)            Address of color palette
FC0C64 426D09AC               clr.w    $9AC(A5)                     Clear mask pointer
FC0C68 322D0E4A               move.w   $E4A(A5),D1                  Get printer configuration
FC0C6C E649                   lsr.w    #3,D1                        Draft/quality mode
FC0C6E C27C0001               and.w    #1,D1                        Isolate bit
FC0C72 3B4109A2               move.w   D1,$9A2(A5)                  and save
FC0C76 322D0E4A               move.w   $E4A(A5),D1                  Printer configuration
FC0C7A 3001                   move.w   D1,D0
FC0C7C E848                   lsr.w    #4,D0                        Parallel/serial
FC0C7E C07C0001               and.w    #1,D0                        Isolate bit
FC0C82 3B4009AA               move.w   D0,$9AA(A5)                  and save
FC0C86 C27C0007               and.w    #7,D1                        Isolate printer type
FC0C8A 103B1030               move.b   $FC0CBC(PC,D1.w),D0          Get assignment from table
FC0C8E 33C0000009A8           move.w   D0,$9A8                      and save for hardcopy
FC0C94 486D0992               pea      $992(A5)                     Address of the parameter block
FC0C98 33FC0001000004EE       move.w   #1,$4EE                      _dumpflg to one
FC0CA0 6100240C               bsr      $FC30AE                      Execute hardcopy
FC0CA4 33FCFFFF000004EE       move.w   #-1,$4EE                     _dumpflg copy
FC0CAC 584F                   addq.w   #4,A7                        Correct stack pointer
FC0CAE 4E75                   rts

*****************************************************************   Parameter table for hardcopy
FC0CB0 014002800280           dc.w     320,640,640                  Screen widths
FC0CB2 00C800C80190           dc.w     200,200,400                  Screen heights

*****************************************************************   Printer types (-l = not implemented)
FC0CBC 00                     dc.b     0                            ATARI B/W dot-matrix
FC0CBD 02                     dc.b     2                            ATARI B/W daisy wheel
FC0CCE 01                     dc.b     1                            ATARI color dot-matrix
FC0CCF FF                     dc.b     -1                           (ATARI color daisy wheel)
FC0CC0 03                     dc.b     3                            Epson B/W dot-matrix
FC0CC1 FF                     dc.b     -1                           (Epson B/W daisy wheel)
FC0CC2 FF                     dc.b     -1                           (Epson color dot-matrix)
FC0CC3 FF                     dc.b     -1                           (Epson color daisy wheel)

*****************************************************************   "Bomb" bit pattern
FC0CC4 0600                   dc.b     %0000011000000000
FC0CC6 2900                   dc.b     %0010100100000000
FC0CC8 0080                   dc.b     %0000000010000000
FC0CCA 4840                   dc.b     %0100100001000000
FC0CCC 11F0                   dc.b     %0001000111110000
FC0CCE 01F0                   dc.b     %0000000111110000
FC0CD0 07FC                   dc.b     %0000011111111100
FC0CD2 0FFE                   dc.b     %0000111111111110
FC0CD4 0FFE                   dc.b     %0000111111111110
FC0CD6 1FFF                   dc.b     %0001111111111111
FC0CD8 1FEF                   dc.b     %0001111111101111
FC0CDA 0FEE                   dc.b     %0000111111101110
FC0CDC 0FDE                   dc.b     %0000111111011110
FC0CDE 07FC                   dc.b     %0000011111111100
FC0CE0 03F8                   dc.b     %0000011111111000
FC0CE2 00E0                   dc.b     %0000000011100000

*****************************************************************
FC0CE4 41F9FFFFFA21           lea      $FFFFFA21,A0                 mfp, Timer B data
FC0CEA 43F9FFFFFA1B           lea      $FFFFFA1B,A1                 mfp, Timer B control
FC0CF0 12BC0010               move.b   #$10,(A1)                    Timer B output low
FC0CE4 7801                   moveq.l  #1,D4
FC0CF6 12BC0010               move.b   #0,(A1)                      Stop timer B
FC0CFA 10BC00F0               move.b   #$F0,(A0)                    Load timer B counter with 240
FC0CFE 13FC0008FFFFFA1B       move.b   #8,$FFFFFA1B                 Timer B control, delay mode, /50
FC0D06 1010                   move.b   (A0),D0                      Load counter value
FC0D08 B004                   cmp.b    D4,D0                        Same last value?
FC0D0A 66FA                   bne      $FC0D06                      No
FC0D0C 1810                   move.b   (A0),D4                      Counter value
FC0D0E 363C0267               move.w   #$267,D3                     Loop counter to 616
FC0D12 B810                   cmp.b    (A0),D4                      Counter value equal?
FC0D14 66F6                   bne      $FC0D0C                      No, read new value
FC0D16 51CBFFFA               dbra     D3,$FC0D12                   Next pass
FC0D1A 12BC0010               move.b   #$10,(A1)                    Timer B output low
FC0D1E 4ED6                   jmp      (A6)                         Back to call

*****************************************************************   Execute reset resident programs
FC0D20 20790000042E           move.l   $42E,A0                      phystop
FC0D26 90FC0200               sub.w    #$200,A0                     minus $200
FC0D2A B1FC00000400           cmp.l    #$400,A0                     Exception vectors reached?
FC0D30 672C                   beq      $FC0D5E                      Yes, done
FC0D32 0C9012123456           cmp.l    #$12123456,(A0)              magic ?
FC0D38 66EC                   bne      $FC0D26                      No
FC0D3A B1E80004               cmp.l    4(A0),A0                     Address ?
FC0D3E 66E6                   bne      $FC0D26                      No
FC0D40 4240                   clr.w    D0                           Clear sum
FC0D42 2248                   move.l   A0,A1                        Save address
FC0D44 323C00FF               move.w   #$FF,D1                      256 words
FC0D48 D059                   add.w    (A1)+,D0                     sum
FC0D4A 51C9FFFC               dbra     D1,$FC0D48                   Next word
FC0D4E B07C5678               cmp.w    #$5678,D0                    magic ?
FC0D52 66D2                   bne      $FC0D26                      No, keep looking
FC0D54 2F08                   move.l   A0,-(A7)                     Save address
FC0D56 4EA80008               jsr      8(A0)                        Execute routine
FC0D5A 205F                   move.l   (A7)+,A0                     Restore address
FC0D5C 60C8                   bra      $FC0D26                      Keep searching
FC0D5E 4E75                   rts

*****************************************************************   hdv_init, initialize drives
FC0D60 4E56FFF0               link     A6,#-16
FC0D64 23FC0000012C000029B4   move.l   #300,$29B4                   maxacctim to 300*20 ms
FC0D6E 4240                   clr.w    D0
FC0D70 33C0000004A6           move.w   D0,$4A6                      clear _nflops
FC0D76 33C000005622           move.w   D0,$5622                     curflop, current drive
FC0D7C 3D40FFFE               move.w   D0,-2(A6)                    Start with drive A
FC0D80 604E                   bra      $FC0DD0                      To loop end
FC0D82 207C00004DB8           move.l   #$4DB8,A0                    Address of the DSB (Device Status Block)
FC0D88 326EFFFE               move.w   -2(A6),A1                    Drive number
FC0D8C D1C9                   add.l    A1,A0                        as index
FC0D8E 4210                   clr.b    (A0)                         Clear DSB
FC0D90 4257                   clr.w    (A7)
FC0D92 4267                   clr.w    -(A7)
FC0D94 4267                   clr.w    -(A7)
FC0D96 3F2EFFFE               move.w   -2(A6),(A7)                  Drive number
FC0D9A 42A7                   clr.l    -(A7)
FC0D9C 42A7                   clr.l    -(A7)
FC0D9E 4EB900FC1556           jsr      $FC1556                      flopini
FC0DA4 DFFC0000000E           add.l    #$E,A7                       Correct stack pointer
FC0DAA 3F00                   move.w   D0,-(A7)                     Save error code
FC0DAC 306EFFFE               move.w   -2(A6),A0                    Drive number
FC0DB0 D1C8                   add.l    A0,A0                        times 2
FC0DB2 D1FC000058C0           add.l    #$58C0,A0
FC0DB8 309F                   move.w   (A7)+,(A0)                   Error code
FC0DBA 6610                   bne      $FC0DCC                      Drive not present?
FC0DBC 59279000004A6          addq.w   #1,$4A6                      Increment _nflops
FC0DC2 00B900000003000004C2   or.l     #3,$4C2                      _drvbits, drive A and B
FC0DCC 5926EFFFE              addq.w   #1,-2(A6)                    Increment drive number
FC0DD0 0C6E0002FFFE           cmp.w    #2,-2(A6)                    2 drives tested?
FC0DD6 6DAA                   blt      $FC0D82                      No
FC0DD8 4E5E                   unlk     A6
FC0DDA 4E75                   rts

*****************************************************************   getdsb
FC0DDC 4E56FFFC               link     A6,#-4
FC0DE0 4280                   clr.l    D0                           Zero
FC0DE2 4E5E                   unlk     A6
FC0DE4 4E75                   rts

*****************************************************************   getbpb, Get BIOS parameter block
FC0DE6 4E56FFF4               link     A6,#-12
FC0DEA 48E7070C               movem.l  D5-D7/A4-A5,-(A7)            Save registers
FC0DEE 0C6E00020008           cmp.w    #2,8(A6)                     Drive number
FC0DF4 6D06                   blt      $FC0DFC                      < 2, OK
FC0DF6 4280                   clr.l    D0                           else zero
FC0DF8 60000192               bra      $FC0F8C

FC0DFC 302E0008               move.w   8(A6),D0                     Drive number
FC0E00 EB40                   asl.w    #5,D0                        times 32
FC0E02 48C0                   ext.l    D0
FC0E04 2A40                   move.l   D0,A5
FC0E06 DBFC00004DCE           add.l    #$4DCE,A5                    plus base address
FC0E0C 284D                   move.l   A5,A4                        save
FC0E0E 3EBC0001               move.w   #1,(A7)                      count, read a sector
FC0E12 4267                   clr.w    -(A7)                        Side 0
FC0E14 4267                   clr.w    -(A7)                        Track 0
FC0E16 3F3C0001               move.w   #1,-(A7)                     Sector 1
FC0E1A 3F2E0008               move.w   8(A6),-(A7)                  Drive number
FC0E1E 42A7                   clr.l    -(A7)                        Filler
FC0E20 2F3C0000167A           move.l   #$167A,-(A7)                 Address of disk buffer
FC0E26 4EB900FC159E           jsr      $FC159E                      Read sector
FC0E2C DFFC00000010           add.l    #$10,A7                      Correct stack pointer
FC0E32 2D40FFF4               move.l   D0,-12(A6)                   Error code
FC0E36 4AAEFFF4               tst.l    -12(A6)                      test
FC0E3A 6C16                   bge      $FC0E52                      OK ?
FC0E3C 3EAE0008               move.w   8(A6),(A7)                   Drive number
FC0E40 202EFFF4               move.l   -12(A6),D0                   Error code
FC0E44 3F00                   move.w   D0,-(A7)                     as parameter
FC0E46 4EB900FC073E           jsr      $FC073E                      critical error handler
FC0E4C 548F                   addq.l   #2,A7                        Correct stack pointer
FC0E4E 2D40FFF4               move.l   D0,-12(A6)                   Save error code
FC0E52 202EFFF4               move.l   -12(A6),D0                   test
FC0E56 B0BC00010000           cmp.l    #$10000,D0                   Retry ?
FC0E5C 67B0                   beq      $FC0E0E                      Yes, try again
FC0E5E 4AAEFFF4               tst.l    -12(A6)                      Test error code
FC0E62 6C06                   bge      $FC0E6A                      OK ?
FC0E64 4280                   clr.l    D0
FC0E66 60000124               bra      $FC0F8C

FC0E6A 2EBC00001685           move.l   #$1685,(A7)                  Buffer+11, bytes per sector
FC0E70 610006BE               bsr      $FC1530                      u2i, 8086 to 68000 format
FC0E74 3E00                   move.w   D0,D7                        Save bytes per sector
FC0E76 6F0E                   ble      $FC0E86                      < = 0, error
FC0E78 1C3900001687           move.b   $1687,D6                     Buffer+13, sectors per cluster
FC0E7E 4886                   ext.w    D6
FC0E80 CC7C00FF               and.w    #$FF,D6
FC0E84 6E06                   bgt      $FC0E8C                      > 0, OK
FC0E86 4280                   clr.l    D0                           0 as result
FC0E88 60000102               bra      $FC0F8C                      Error

FC0E8C 3887                   move.w   D7,(A4)                      recsize in bpb
FC0E8E 39460002               move.w   D6,2(A4)                     clsiz in bpb
FC0E92 2EBC00001690           move.l   #$1690,(A7)                  Buffer+22, sectors per FAT
FC0E98 61000696               bsr      $FC1530                      u2i, 8086 to 68000 format
FC0E9C 39400008               move.w   D0,8(A4)                     fsiz in bpb
FC0EA0 302C0008               move.w   8(A4),D0                     fsiz
FC0EA4 5240                   addq.w   #1,D0                        plus 1
FC0EA6 3940000A               move.w   D0,10(A4)                    as fatrec in bpb
FC0EAA 3014                   move.w   (A4),D0                      recsize
FC0EAC C1EC0002               muls.w   2(A4),D0                     times clsiz
FC0EB0 39400004               move.w   D0,4(A4)                     as clsizb in bpb
FC0EB4 2EBC0000168B           move.l   #$168B,(A7)                  Buffer+17, number of director entries
FC0EBA 61000674               bsr      $FC1530                      u2i, 8086 to 68000 format
FC0EBE EB40                   asl.w    #5,D0                        times 32
FC0EC0 48C0                   ext.l    D0
FC0EC2 81D4                   divs.w   (A4),D0                      by recsiz
FC0EC4 39400006               move.w   D0,6(A4)                     as rdlen in bpb
FC0EC8 302C000A               move.w   10(A4),D0                    fatrec
FC0ECC D06C0006               add.w    6(A4),D0                     plus rdlen
FC0ED0 D06C0008               add.w    8(A4),D0                     plus f872
FC0ED4 3940000C               move.w   D0,12(A4)                    as datrec in bpb
FC0ED8 2EBC0000168D           move.l   #$168D,(A7)                  Buffer+19, number of sectors
FC0EDE 61000650               bsr      $FC1530                      u2i, 8086 format to 68000 format
FC0EE2 906C000C               sub.w    12(A4),D0                    minus datrec
FC0EE6 48C0                   ext.l    D0
FC0EE8 81EC0002               divs.w   2(A4),D0                     by clsiz
FC0EEC 3940000E               move.w   D0,14(A4)                    as numcl in bpb
FC0EF0 2EBC00001694           move.l   #$1694,(A7)                  Buffer+26, number of sides
FC0EF6 61000638               bsr      $FC1530                      u2i, 8086 to 68000 format
FC0EFA 3B400014               move.w   D0,20(A5)                    as dnsides in bpb
FC0EFE 2EBC00001692           move.l   #$1692,(A7)                  Buffer+24, sectors per track
FC0F04 6100062A               bsr      $FC1530                      u2i, 8086 to 68000 format
FC0F08 3B400018               move.w   D0,24(A5)                    as dspt in bpb
FC0F0C 302D0014               move.w   20(A5),D0                    dnsides
FO0F10 C1ED0018               muls.w   24(A5),D0                    times dspt
FC0F14 3B400016               move.w   D0,22(A5)                    as dspc in bpd
FC0F18 2EBC00001696           move.l   #$1696,(A7)                  Buffer+28, number of hidden sectors
FC0F1E 61000610               bsr      $FC1530                      u2i, 8086 in 68000 format
FC0F22 3B40001A               move.w   D0,26(A5)                    as dhidden in bpb
FC0F26 2EBC0000168D           move.l   #$168D,(A7)                  Buffer+19, number of sectors on disk
FC0F2C 61000602               bsr      $FC1530                      u2i, 8086 to 68000 format
FC0F30 48C0                   ext.l    D0
FC0F32 81ED0016               divs.w   22(A5),D0                    by dspc
FC0F36 3B400012               move.w   D0,18(A5)                    as dntracks in bpb
FC0F3A 4247                   clr.w    D7                           Counter to zero
FC0F3C 6016                   bra      $FC0F54                      Jump to loop end
FC0F3E 204D                   move.l   A5,A0                        Buffer pointer
FC0F40 3247                   move.w   D7,A1                        Counter
FC0F42 D1C9                   add.l    Al,A0                        plus buffer address
FC0F44 3247                   move.w   D7,Al                        Counter
FC0F46 D3FC0000167A           add.l    #$167A,A1                    Address of disk buffer
FC0F4C 11690008001C           move.b   8(A1),28(A0)                 Copy byte of serial number
FC0F52 5247                   addq.w   #1,D7                        Increment counter
FC0F54 BE7C0003               cmp.w    #3,D7                        already 3 ?
FC0F58 6DE4                   blt      $FC0F3E                      No
FC0F5A 207C000009B4           move.l   #$9B4,A0                     cdev
FC0F60 326E0008               move.w   8(A6),A1                     Drive
FC0F64 D1C9                   add.l    A1,A0
FC0F66 227C000009B2           move.l   #$9B2,A1                     wpstatus
FC0F6C 346E0008               move.w   8(A6),A2                     Drive
FC0F70 D3CA                   add.l    A2,A1
FC0F72 1091                   move.b   (A1),(A0)
FC0F74 6704                   beq      $FC0F7A
FC0F76 7001                   moveq.l  #1,D0                        Diskette status uncertain
FC0F78 6002                   bra      $FC0F7C
FC0F7A 4240                   clr.w    D0                           Status certain
FC0F7C 227C00004DB8           move.l   #$4DB8,A1
FC0F82 346E0008               move.w   8(A6),A2                     Drive
FC0F86 D3CA                   add.l    A2,A1
FC0F88 1280                   move.b   D0,(A1)                      Save status
FC0F8A 200D                   move.l   A5,D0                        Address of bpb as result
FC0F8C 4A9F                   tst.l    (A7)+
FC0F8E 4CDF30C0               movem.l  (A7)+,D6-D7/A4-A5            Restore registers
FC0F92 4E5E                   unlk     A6
FC0F94 4E75                   rts

*****************************************************************   mediach, disk changed?
FC0F96 4E560000               link     A6,#0
FC0F9A 48E70304               movem.l  D6-D7/A5,-(A7)               Save registers
FC0F9E 0C6E00020008           cmp.w    #2,8(A6)                     Drive number < 2 ?
FC0FA4 6D04                   blt      $FC0FAA                      Yes
FC0FA6 70F1                   moveq.l  #-15,D0                      'unknown device'
FC0FA8 604C                   bra      $FC0FF6                      Error exit
FC0FAA 3E2E0008               move.w   8(A6),D7                     Drive number
FC0FAE 3A47                   move.w   D7,A5
FC0FB0 DBFC00004DB8           add.l    #$4DB8,A5                    plus address of bpb
FC0FB6 0C150002               cmp.b    #2,(A5)
FC0FBA 6604                   bne      $FC0FC0
FC0FBC 7002                   moveq.l  #2,D0                        media changed, disk was changed
FC0FBE 6036                   bra      $FC0FF6                      Error exit
FC0FC0 207C000009B4           move.l   #$9B4,A0                     wplatch
FC0FC6 4A307000               tst.b    0(A0,D7.w)                   Test for drive
FC0FCA 6704                   beq      $FC0FD0                      OK ?
FC0FCC 1ABC0001               move.b   #1,(A5)                      Status uncertain
FC0FD0 2039000004BA           move.l   $4BA,D0                      _hz_200
FC0FD6 3247                   move.w   D7,A1
FC0FD8 D3C9                   add.l    A1,A1
FC0FDA D3C9                   add.l    A1,A1
FC0FDC D3FC000009B6           add.l    #$9B6,A1
FC0FE2 2211                   move.l   (A1),D1
FC0FE4 9081                   sub.l    D1,D0
FC0FE6 B0B9000029B4           cmp.l    $29B4,D0                     maxacctim
FC0FEC 6C04                   bge      $FC0FF2
FC0FEE 4240                   clr.w    D0                           ok, disk wasn't changed
FC0FF0 6004                   bra      $FC0FF6
FC0FF2 1015                   move.b   (A5),D0                      Get result
FC0FF4 4880                   ext.w    D0
FC0FF6 4A9F                   tst.l    (A7)+
FC0FF8 4CDF2080               movem.l  (A7)+,D7/A5                  Restore registers
FC0FFC 4E5E                   unlk     A0
FC0FFE 4E75                   rts

*****************************************************************   Test for disk change
FC1000 4E560000               link     A6,#0
FC1004 48E70F04               movem.l  D4-D7/A5,-(A7)               Save registers
FC1008 3C2E0008               move.w   8(A6),D6                     Drive number
FC100C 3006                   move.w   D6,D0
FC100E EB40                   asl.w    #5,D0                        times 32
FC1010 48C0                   ext.l    D0
FC1012 2A40                   move.l   D0,A5
FC1014 DBFC00004DCE           add.l    #$4DCE,A5                    plus address bpb
FC101A 3E86                   move.w   D6,(A7)
FC101C 6100FF78               bsr      $FC0F96                      test media change
FC1020 3E00                   move.w   D0,D7
FC1022 BE7C0002               cmp.w    #2,D7                        Changed ?
FC1026 660A                   bne      $FC1032                      No
FC1028 3007                   move.w   D7,D0
FC102A 6000009C               bra      $FC10C8
FC102E 60000096               bra      $FC10C6

FC1032 BE7C0001               cmp.w    #1,D7                        Diskette changed?
FC1036 6600008E               bne      $FC100C6                     No
FC103A 3EBC0001               move.w   #1,(A7)                      Read sector (boot sector)
FC103E 4267                   clr.w    -(A7)                        Side 0
FC1040 4267                   clr.w    -(A7)                        Track 0
FC1042 3F3C0001               move.w   #1,-(A7)                     Sector 1
FC1046 3F06                   move.w   D6,-(A7)                     Drive number
FC1048 42A7                   clr.l    (A7)                         Filler
FC104A 2F3C0000167A           move.l   #$167A,-(A7)                 Address of disk buffer
FC1050 4EB900FC159E           jsr      $FC159E                      floprd
FC1056 DFFC00000010           add.l    #$10,A7                      Correct stack pointer
FC105C 2A00                   move.l   D0,D5                        Save error number
FC105E 4A85                   tst.l    D5                           OK ?
FC1060 6C10                   bge      $FC1072                      Yes
FC1062 3E86                   move.w   D6,(A7)
FC1064 2005                   move.l   D5,D0                        Error number
FC1066 3F00                   move.w   D0,-(A7)
FC1068 4EB900FC073E           jsr      $FC073E                      Pass to critical error handler
FC106E 548F                   addq.l   #2,A7                        Correct stack pointer
FC1070 2A00                   move.l   D0,D5                        Error number
FC1072 BABC00010000           cmp.l    #$10000,D5                   Retry ?
FC1078 67C0                   beq      $FC103A                      Yes, try again
FC107A 4A85                   tst.l    D5                           Error code
FC107C 6C04                   bge      $FC1082                      OK ?
FC107E 2005                   move.l   D5,D0                        Else error number
FC1080 6046                   bra      $FC10C8                      Error exit
FC1082 4247                   clr.w    D7                           clear media change status
FC1084 601C                   bra      $FC10A2

FC1086 207C0000167A           move.l   #$167A,A0                    Address of disk buffer
FC108C 10307008               move.b   8(A0,D7.w),D0                Serial number
FC1090 4880                   ext.w    D0
FC1092 1235701C               move.b   28(A5,D1.w),D1               compare with old value
FC1096 4881                   ext.w    D1
FC1098 B041                   cmp.w    D1,D0                        Match?
FC109A 6704                   beq      $FC10A0                      Yes
FC109C 7002                   moveq.l  #2,D0                        Media changed
FC109E 6028                   bra      $FC10C8                      Error exit

FC10A0 5247                   addq.w   #1,D7                        next byte of serial number
FC10A2 BE7C0003               cmp.w    #3,D7                        All three bytes tested?
FC10A6 6DDE                   blt      $FC1086                      No
FC10A8 3046                   move.w   D6,A0                        Drive number
FC10AA D1FC000009B4           add.l    #$9B4,A0                     wplatch
FC10B0 3246                   move.w   D6,A1                        Drive number
FC10B2 D3FC000009B2           add.l    #$9B2,A1                     wpstatus
FC10B8 1091                   move.b   (A1),(A0)                    accept
FC10BA 660A                   bne      $FC10C6
FC10BC 3046                   move.w   D6,A0
FC10BE D1FC00004DB8           add.l    #$4DB8,A0
FC10C4 4210                   clr.b    (A0)
FC10C6 4240                   clr.w    D0                           OK
FC10C8 4A9F                   tst.l    (A7)+
FC10CA 4CDF20E0               movem.l  (A7)+,D5-D7/A5               Restore registers
FC10CE 4E5E                   unlk     A6
FC10D0 4E75                   rts

*****************************************************************   rwabs, read/write sector(s)
FC10D2 4E560000               link     A6,#0
FC10D5 48E70700               movem.l  D5-D7,(A7)                   Save registers
FC10DA 3E2E0012               move.w   18(A6),D7                    Drive number
FC10DE 3007                   move.w   D7,D0
FC10E0 B07C0002               cmp.w    #2,D0                        Less than 2 ?
FC10E4 6D06                   blt      $FC10EC                      yes
FC10E6 70F1                   moveq.l  #-15,D0                      'unknown device'
FC10E8 60000068               bra      $FC1152                      Error exit

FC10EC 4A79000004A6           tst.w    $4A6                         _nflops, floppies connected?
FC10F2 6604                   bne      $FC10F8                      Yes
FC10F4 70FE                   moveq.l  #-2,D0                       'Drive not ready'
FC10F6 605A                   bra      $FC1152                      Error exit

FC10F8 4AAE000A               tst.l    10(A6)                       buffer
FC10FC 6616                   bne      $FC1114                      Address specified?
FC10FE 302E000E               move.w   14(A6),D0                    count, number of sectors
FC1102 227C00004DB8           move.l   #$4DB8,A1                    Base address
FC1108 346E0012               move.w   18(A6),A2                    Drive number
FC110C D3CA                   add.l    A2,A1                        add
FC110E 1280                   move.b   D0,(A1)                      sector counter
FC1110 4280                   clr.l    D0                           OK
FC1112 603E                   bra      $FC1152                      Done

FC1114 0C6E00020008           cmp.w    #2,8(A6)                     rwflag, ignore media change ?
FC111A 6C1C                   bge      $FC1138                      Yes
FC111C 3E87                   move.w   D7,(A7)                      Drive number
FC111E 6100FEE0               bsr      $FC1000                      was disk changed?
FC1122 48C0                   ext.l    D0
FC1124 2C00                   move.l   D0,D6                        Save error code
FC1126 4A86                   tst.l    D6
FC1128 670E                   beq      $FC1138                      Not changed, OK
FC112A BCBC00000002           cmp.l    #2,D6                        Definitely changed?
FC1130 6602                   bne      $FC1134                      Yes
FC1132 7CF2                   moveq.l  #-14,D6                      'Diskette was changed'
FC1134 2006                   move.l   D6,D0
FC1136 601A                   bra      $FC1152                      Error exit

FC1138 3EAE000E               move.w   14(A6),(A7)                  count, number of sectors
FC113C 3F07                   move.w   D7,-(A7)                     Drive number
FC113E 3F2E0010               move.w   16(A6),-(A7)                 recno, first sector number
FC1142 2F2E000A               move.l   10(A6),-(A7)                 buffer
FC1146 3F2E0008               move.w   8(A6),-(A7)                  rwflag, read/write
FC114A 6110                   bsr      $FC115C                      floprw
FC114C DFFC0000000A           add.l    #$A,A7                       Correct stack pointer
FC1152 4A9F                   tst.l    (A7)+
FC1154 4CDF00C0               movem.l  (A7)+,D6-D7                  Restore registers
FC1158 4E5E                   unlk     A6
FC115A 4E75                   rts

*****************************************************************   floprw, read/write sector(s)
FC115C 4E56FFFA               link     A6,#-6
FC1160 48E73F04               movem.l  D2-D7/A5,-(A7)               Restore registers
FC1164 302E0010               move.w   16(A6),D0                    Drive number
FC1168 EB40                   asl.w    #5,D0                        times 32
FC116A 48C0                   ext.l    D0
FC116C 2A40                   move.l   D0,A5
FC116E DBFC00004DCE           add.l    #$4DCE,A5                    plus base address bpb
FC1174 082E0000000D           btst     #0,13(A6)                    Buffer address odd?
FC117A 6604                   bne      $FC1180                      Yes
FC117C 4240                   clr.w    D0                           Clear odd flag
FC117E 6002                   bra      $FC1182
FC1180 7001                   moveq.l  #1,D0                        Set odd flag
FC1182 3D40FFFE               move.w   D0,-2(A6)                    And save
FC1186 4A6D0016               tst.w    22(A5)                       dspc set ?
FC118A 660A                   bne      $FC1196                      Yes
FC118C 7009                   moveq.l  #9,D0                        Else use 9
FC118E 3B400016               move.w   D0,22(A5)                    as dspt
FC1192 3B400018               move.w   D0,24(A5)                    and dspc
FC1196 60000180               bra      $FC1318                      to loop end

FC119A 4A6EFFFE               tst.w    -2(A6)                       Odd flag set?
FC119E 6708                   beq      $FC11A8                      No
FC11A0 203C0000167A           move.l   #$167A,D0                    Address of disk buffer
FC11A6 6004                   bra      $FC11AC
FC11A8 202E000A               move.l   10(A6),D0                    Get buffer address
FC11AC 2D40FFFA               move.l   D0,-6(A6)                    and save
FC11B0 3C2E000E               move.w   14(A6),D6                    recno, logical sector number
FC11B4 48C6                   ext.l    D6
FC11B6 8DED0016               divs.w   22(A5),D6                    divided by dspc yields track number
FC11BA 382E000E               move.w   14(A6),D4                    recno, logical sector number
FC11BE 48C4                   ext.l    D4
FC11C0 89ED0016               divs.w   22(A5),D4                    divided by dspc, sectors per track
FC11C4 4844                   swap     D4                           Remainder of division as sector number
FC11C6 B86D0018               cmp.w    24(A5),D4                    Compare with dspt
FC11CA 6C04                   bge      $FC11D0                      Greater than or equal?
FC11CC 4245                   clr.w    D5                           Side 0
FC11CE 6006                   bra      $FC11D6
FC11D0 7A01                   moveq.l  #1,D5                        Side 1
FC11D2 986D0018               sub.w    24(A5),D4                    Subtract dspt
FC11D6 4A6EFFFE               tst.w    -2(A6)                       Odd-flag set?
FC11DA 6704                   beq      $FC11E0                      No
FC11DC 7601                   moveq.l  #1,D3                        Set counter to one
FC11DE 6018                   bra      $FC11F8
FC11E0 302D0018               move.w   24(A5),D0                    dspt
FC11E4 9044                   sub.w    D4,D0                        minus sector number
FC11E6 B06E0012               cmp.w    18(A6),D0                    Compare with number of sectors
FC11EA 6C08                   bge      $FC11F4                      Greater or equal?
FC11EC 362D0018               move.w   24(A5),D3                    dspt
FC11F0 9644                   sub.w    D4,D3                        minus sector number equals counter
FC11F2 6004                   bra      $FC11F8
FC11F4 362E0012               move.w   18(A6),D3                    Number of sectors as counter
FC11F8 5244                   addq.w   #1,D4                        Increment sector number (first sector # = 1)
FC11FA 082E00000009           btst     #0,9(A6)                     Test rwflag
FC1200 67000080               beq      $FC1282                      Read ?
FC1204 202EFFFA               move.l   -6(A6),D0                    Buffer pointer
FC1208 B0AE000A               cmp.l    10(A6),D0                    Equals specified buffer address?
FC120C 6710                   beq      $FC121E                      Yes
FC120E 2EAEFFFA               move.l   -6(A6),(A7)                  Source address
FC1212 2F2E000A               move.l   10(A6),-(A7)                 Destination address
FC1216 4EB900FC0AD6           jsr      $FC0AD6                      Fastcopy, copy sector
FC121C 588F                   addq.l   #4,A7                        Correct stack pointer
FC121E 3E83                   move.w   D3,(A7)                      Number of sectors
FC1220 3F05                   move.w   D5,-(A7)                     Side
FC1222 3F06                   move.w   D6,-(A7)                     Track
FC1224 3F04                   move.w   D4,-(A7)                     Sector
FC1226 3F2E0010               move.w   16(A6),-(A7)                 Drive
FC122A 42A7                   clr.l    -(A7)                        Filler
FC122C 2F2EFFFA               move.l   -6(A6),-(A7)                 Buffer
FC1230 4EB900FC167C           jsr      $FC167C                      flopwr, write sector(s)
FC1236 DFFC00000010           add.l    #$10,A7                      Correct stack pointer
FC123C 2E00                   move.l   D0,D7                        Error code
FC123E 4A87                   tst.l    D7                           OK ?
FC1240 663E                   bne      $FC1280                      No
FC1242 4A7900000444           tst.w    $444                         _fverify, verify ?
FC1248 6736                   beq      $FC1280                      No
FC124A 3E83                   move.w   D3,(A7)                      Number of sectors
FC124C 3F05                   move.w   D5,-(A7)                     Side
FC124E 3F06                   move.w   D6,-(A7)                     Track
FC1250 3F04                   move.w   D4,-(A7)                     Sector
FC1252 3F2E0010               move.w   16(A6),-(A7)                 Drive
FC1256 42A7                   clr.l    -(A7)                        Filler
FC1258 2F3C0000167A           move.l   #$167A,-(A7)                 Address of disk buffer
FC125E 4EB900FC18CE           jsr      $FC18CE                      flopver, verify sectors
FC1264 DFFC00000010           add.l    #$10,A7                      Correct stack pointer
FC126A 2E00                   move.l   D0,D7                        Error code
FC126C 4A87                   tst.l    D7                           OK ?
FC126E 6610                   bne      $FC1280                      No
FC1270 2EBC0000167A           move.l   #$167A,(A7)                  Address of the disk buffer
FC1276 610002B8               bsr      $FC1530                      u2i, convert 8086 integer to 68000 format
FC127A 4A40                   tst.w    D0                           Bad sector list
FC127C 6702                   beq      $FC1280                      No errors during verify?
FC127E 7EF0                   moveq.l  #-16,D7                      'Bad sectors'
FC1280 603A                   bra      $FC12BC
FC1282 3E83                   move.w   D3,(A7)                      Number of sectors
FC1284 3F05                   move.w   D5,-(A7)                     Side
FC1286 3F06                   move.w   D6,-(A7)                     Track
FC1288 3F04                   move.w   D4,-(A7)                     Sector
FC128A 3F2E0010               move.w   16(A6),-(A7)                 Drive
FC128E 42A7                   clr.l    -(A7)                        Filler
FC1290 2F2EFFFA               move.l   -6(A6),-(A7)                 Buffer
FC1294 4EB900FC159E           jsr      $FC159E                      floprd, read sector(s)
FC129A DFFC00000010           add.l    #$10,A7                      Correct stack pointer
FC12A0 2E00                   move.l   D0,D7                        Error code
FC12A2 202EFFFA               move.l   -6(A6),D0                    Buffer used
FC12A6 B0AE000A               cmp.l    10(A6),D0                    Equals desired buffer?
FC12AA 6710                   beq      $FC12BC                      Yes
FC12AC 2EAE000A               move.l   10(A6),(A7)                  Source address
FC12B0 2F2EFFFA               move.l   -6(A6),-(A7)                 Destination address
FC12B4 4EB900FC0AD6           jsr      $FC0AD6                      Fastcopy, copy sector
FC12BA 588F                   addq.l   #4,A7                        Correct stack pointer
FC12BC 4A87                   tst.l    D7                           No error?
FC12BE 6C32                   bge      $FC12F2                      OK
FC12C0 3EAE0010               move.w   16(A6),(A7)                  Drive number
FC12C4 2007                   move.l   D7,D0                        Error code
FC12C6 3F00                   move.w   D0,-(A7)
FC12C8 4EB900FC073E           jsr      $FC073E                      crittcal error handler
FC12CE 548F                   addq.l   #2,A7                        Correct stack pointer
FC12D0 2E00                   move.l   D0,D7                        Save error code
FC12D2 0C6E00020008           cmp.w    #2,8(A6)                     rwflag, ignore media change ?
FC12D8 6C18                   bge      $FC12F2                      Yes
FC12DA BEBC00010000           cmp.l    #$10000,D7                   Retry ?
FC12E0 6610                   bne      $FC12F2                      No
FC12E2 3EAE0010               move.w   16(A6),(A7)                  Drive number
FC12E6 6100FD18               bsr      $FC1000                      Diskette change ?
FC12EA B07C0002               cmp.w    #2,D0                        Definitely changed?
FC12EE 6602                   bne      $FC12F2                      No
FC12F0 7EF2                   moveq.l  #-14,D7                      'media changed'
FC12F2 BEBC00010000           cmp.l    #$10000,D7                   Retry ?
FC12F8 6700FF00               beq      $FC11FA                      Yes, try again
FC12FC 4A87                   tst.l    D7                           Error code
FC12FE 6C04                   bge      $FC1304                      OK ?
FC1300 2007                   move.l   D7,D0                        Error code
FC1302 601E                   bra      $FC1322                      To error exit
FC1304 3003                   move.w   D3,D0                        sector counter
FC1306 48C0                   ext.l    D0
FC1308 7209                   moveq.l  #9,D1
FC130A E3A0                   asl.l    D1,D0                        times 512
FC130C D1AE000A               add.l    D0,10(A6)                    Increment buffer address
FC1310 D76E000E               add.w    D3,14(A6)                    Logical sector number plus sector counter
FC1314 976E0012               sub.w    D3,18(A6)                    Decrement number of sectors to process
FC1318 4A6E0012               tst.w    18(A6)                       Still sectors to process?
FC131C 6600FE7C               bne      $FC119A                      Yes
FC1320 4280                   clr.l    D0                           OK
FC1322 4A9F                   tst.l    (A7)+
FC1324 4CDF20F8               movem.l  (A7)+,D3-D7/A5               Restore registers
FC1328 4E5E                   unlk     A6
FC132A 4E75                   rts

*****************************************************************   random, generate random numbers
FC132C 4E56FFFC               link     A6,#-4
FC1330 4AB9000029B8           tst.l    $29B8                        Last random number
FC1336 6616                   bne      $FC134E                      Not zero?
FC1338 2039000004BA           move.l   $4BA,D0                      _hz_200
FC133E 7210                   moveq.l  #16,D1
FC1340 E3A0                   asl.l    D1,D0                        << 16
FC1342 80B9000004BA           or.l     $4BA,D0                      _hz_200
FC1348 23C0000029B8           move.l   D0,$29B8                     Use as start value
FC134E 2F3CBB40E62D           move.l   #3141592621,-(A7)
FC1354 2F39000029B8           move.l   $29B8,-(A7)                  Last random value
FC135A 4EB900FC4BE4           jsr      $FC4BE4                      Long multiplication
FC1360 508F                   addq.l   #8,A7                        Correct stack pointer
FC1362 5280                   addq.l   #1,D0                        plus
FC1364 23C0000029B8           move.l   D0,$29B8                     as new start value
FC136A 2039000029B8           move.l   $29B8,D0                     Result
FC1370 E080                   asr.l    #8,D0                        >> 8
FC1372 C0BC00FFFFFF           and.l    #$FFFFFF,D0                  Clear bits 24-31
FC1378 4E5E                   unlk     A6
FC137A 4E75                   rts

*****************************************************************   hdv_ boot, load boot sector
FC137C 4E560000               link     A6
FC1380 48E70300               movem.l  D6-D7,-(A7)                  Save registers
FC1384 4EB900FC0AF8           jsr      $FC0AF8                      hdv init, initialize drive
FC138A 4A79000004A6           tst.w    $4A6                         _nflops
FC1390 6704                   beq      $FC1396                      No drive connected?
FC1392 7001                   moveq.l  #1,D0                        'couldn't Load'
FC1394 6002                   bra      $FC1398
FC1396 7002                   moveq.l  #2,D0                        'no drive'
FC1398 3E00                   move.w   D0,D7                        Save error
FC139A 4A79000004A6           tst.w    $4A6                         _nflops
FC13A0 6744                   beq      $FC13E6                      No drive?
FC13A2 0C79000200000446       cmp.w    #2,$446                      _bootdev
FC13AA 6C3A                   bge      $FC13E6                      No diskette?
FC13AC 3EBC0001               move.w   #1,(A7)                      One sector
FC1330 4267                   clr.w    -(A7)                        Side 0
FC13B2 4267                   clr.w    -(A7)                        Track 0
FC13B4 3F3C0001               move.w   #1,-(A7)                     Sector l
FC13B8 3F3900000446           move.w   $446,-(A7)                   _bootdev
FC13BE 42A7                   clr.l    -(A7)                        Filler
FC13C0 2F3C0000167A           move.l   #$167A,-(A7)                 Address of disk buffer
FC13C6 4EB900FC159E           jsr      $FC159E                      floprd, read sector
FC13CC DFFC00000010           add.l    #$510,A7                     Correct stack pointer
FC13D2 4A80                   tst.l    D0                           Error ?
FC13D4 6604                   bne      $FC13DA                      Yes
FC13D6 4247                   clr.w    D7                           Clear error code
FC13D8 600C                   bra      $FC13E6
FC13DA 4A39000009B2           tst.b    $9B2                         wpstatus
FC13E0 6604                   bne      $FC13E6
FC13E2 7003                   moveq.l  #3,D0                        'unreadable'
FC13E4 6024                   bra      $FC140A
FC13E6 4A47                   tst.w    D7                           Error ?
FC13E8 6704                   beq      $FC13EE                      No
FC13EA 3007                   move.w   D7,D0                        Get error code
FC13EC 601C                   bra      $FC140A
FC13EE 3EBC0100               move.w   #$100,(A7)                   $100 words
FC13F2 2F3C0000167A           move.l   #$167A,-(A7)                 Address of disk buffer
FC13F8 61000106               bsr      $FC1500                      Calculate checksum
FC13FC 588F                   addq.l   #4,A7                        Correct stack pointer
FC13FE B07C1234               cmp.w    #$1234,D0                    magic for boot sector?
FC1402 6604                   bne      $FC1408                      No
FC1404 4240                   clr.w    D0                           OK
FC1406 6002                   bra      $FC140A
FC1408 7004                   moveq.l  #4,D0                        'not valid boot sector'
FC140A 4A9F                   tst.l    (A7)+
FC140C 4CDF0080               movem.1  (A7)+,D7                     Restore registers
FC1410 4E5E                   unlk     A6
FC1412 4875                   rts

*****************************************************************   proto_bt, generate boot sector
FC1414 4E56FFFA               link     A6,#-6
FC1418 48E70704               movem.l  D5-D7/A5,-(A7)               Restore registers
FC141C 4A6E0012               tst.w    18(A6)                       Test execflg
FC1420 6C1E                   bge      $FC1440                      Preserve executability
FC1422 3EBC0100               move.w   #$100,(A7)                   $100 words
FC1426 2F2E0008               move.l   8(A6),-(A7)                  Address of the sector buffer
FC142A 610000D4               bsr      $FC1500                      Calculate checksum
FC142E 588F                   addq.l   #4,A7                        Correct stack pointer
FC1430 B07C1234               cmp.w    #$1234,D0                    magic for boot sector?
FC1434 6704                   beq      $FC143A                      Yes
FC1436 4240                   clr.w    D0                           Not executable
FC1438 6002                   bra      $FC143C
FC143A 7001                   moveq.l  #1,D0                        Executable
FC143C 3D400012               move.w   D0,18(A6)                    execflg
FC1440 4AAE0Q00C              tst.l    12(A6)                       Serial number
FC1444 6D3E                   blt      $FC1484                      Negative, don't change
FC1446 202E000C               move.l   12(A6),D0                    Serial number
FC144A B0BC00FFFFFF           cmp.l    #$FFFFFF,D0                  > $FFFFFF ?
FC1450 6F08                   ble      $FC145A                      No
FC1452 6100FED8               bsr      $FC132C                      rand, create random number
FC1456 2D40000C               move.l   D0,12(A6)                    as serial number
FC145A 4247                   clr.w    D7                           Clear counter
FC145C 6020                   bra      $FC147E
FC145E 202E000C               move.l   12(A6),D0                    Serial number
FC1462 C0BC000000FF           and.l    #$FF,D0                      Bits 0-7
FC1468 3247                   move.w   D7,A1                        Pointer to next byte in buffer
FC146A D3EE0008               add.l    8(A6),A1                     plus buffer address
FC146E 13400008               move.b   D0,8(A1)                     Byte of the serial number in buffer
FC1472 202E000C               move.l   12(A6),D0                    Serial number
FC1476 E080                   asr.l    #8,D0                        >> 8
FC1478 2D40000C               move.l   D0,12(A6)
FC147C 5247                   addq.w   #1,D7                        Increment counter
FC147E BE7C0003               cmp.w    #3,D7                        already 3 ?
FC1482 6DDA                   blt      $FC145E                      No
FC1484 4A6E0010               tst.w    16(A6)                       Disk size
FC1488 6D28                   blt      $FC14B2                      Negative, don't change
FC148A 3C2E0010               move.w   16(A6),D6                    Disk size
FC148E CDFC0013               muls.w   #$13,D6                      times 19 equals pointer to prototype bpb
FC1492 4247                   clr.w    D7                           Clear counter
FC1494 6016                   bra      $FC14AC
FC1496 3047                   move.w   D7,A0                        Counter
FC1498 D1EE0008               add.l    8(A6),A0                     plus buffer address
FC149C 3246                   move.w   D6,A1                        Disk size
FC149E D3FC00FD1B60           add.l    #$FD1B60,A1                  plus address of the prototype bpb
FC14A4 1151000B               move.b   (A1),11(A0)                  Copy bpb
FC14A8 5246                   addq.w   #1,D6
FC14AA 5247                   addq.w   #1,D7                        Increment counter
FC14AC BE7C0013               cmp.w    #$13,D7                      already 19 ?
FC14B0 6DE4                   blt      $FC1496                      No
FC14B2 426EFFFA               clr.w    -6(A6)
FC14B6 2D6E0008FFFC           move.l   8(A6),-4(A6)                 Buffer address
FC14BC 600E                   bra      $FC14CC
FC14BE 206EFFFC               move.l   -4(A6),A0                    Buffer address
FC14C2 3010                   move.w   (A0),D0                      Get word from buffer
FC14C4 D16EFFFA               add.w    D0,-6(A6)                    Add to checksum
FC14C8 54AEFFFC               addq.l   #2,-4(A6)                    Next word
FC14CC 202E0008               move.l   8(A6),D0                     Buffer address
FC14D0 D0BC000001FE           add.l    #$1FE,D0                     plus $1FE
FC14D6 B0AEFFFC               cmp.l    -4(A0),D0                    Last word?
FC14DA 62E2                   bhi      $FC14BE                      No
FC14DC 303C1234               move.w   #$1234,D0                    Checksum for boot sector
FC14E0 906EFFFA               sub.w    -6(A6),D0                    subtract from previous value
FC14E4 226EFFFC               move.l   -4(A6),A1
FC14E8 3280                   move.w   D0,(A1)                      Checksum in buffer
FC14EA 4A6E0012               tst.w    18(A6)                       execflg
FC14EE 6606                   bne      $FC14F6                      Boot sector executable?
FC14F0 206EFFFC               move.l   -4(A6),A0
FC14F4 5250                   addq.w   #1,(A0)                      Increment checksum, not executable
FC14F6 4A9F                   tst.l    (A7)+
FC14F8 4CDF20C0               movem.l  (A7)+,D6-D7/A5               Restore registers
FC14FC 4E5E                   unlk     A6
FC14FE 4E75                   rts

*****************************************************************   Calculate checksum
FC1500 4E560000               link     A6,#0
FC1504 48E70300               movem.l  D6-D7,-(A7)                  Restore registers
FC1508 4247                   clr.w    D7                           Clear sum
FC150A 600C                   bra      $FC1518                      To loop end
FC150C 206E0008               move.l   8(A6),A0                     Address of the buffer
FC1510 3010                   move.w   (A0),D0                      Get word
FC1512 DE40                   add.w    D0,D7                        sum
FC1514 54AE0008               addq.l   #2,8(A6)                     Increment buffer address
FC1518 302E000C               move.w   12(A6),D0                    Number of words
FC151C 536E000C               subq.w   #1,12(A6)                    minus 1
FC1520 4A40                   tst.w    D0                           All words added?
FC1522 66E8                   bne      $FC150C                      No
FC1524 3007                   move.w   D7,D0                        Result to D0
FC1526 4A9F                   tst.l    (A7)+
FC1528 4CDF0080               movem.l  (A7)+,D7                     Restore registers
FC152C 4E5E                   unlk     A6
FC152E 4E75                   rts

*****************************************************************   u2i, 8086 integer to 68000 format
FC1530 4E56FFFC               link     A6,#-4
FC1534 206E0008               move.l   8(A6),A0                     Address of the number
FC1538 10280001               move.b   1(A0),D0                     Hi byte
FC153C 4880                   ext.w    D0
FC153E C07C00FF               and.w    #$FF,D0                      Isolate bits 0-7
FC1542 E140                   asl.w    #8,D0                        Shift to bits 8-15
FC1544 226E0008               move.l   8(A6),A1                     Address of the number
FC1548 1211                   move.b   (A1),D1                      Gte lo-byte
FC154A 4881                   ext.w    D1
FC154C C27C00FF               and.w    #$FF,D1                      Isolate bits 0-7
FC1550 8041                   or.w     D1,D0                        Combine with high byte
FC1552 4E5E                   unlk     A6
FC1554 4E75                   rts

*****************************************************************   flopini, initialize drive
FC1556 43F900000A06           lea      $A06,A1                      Address of dsb0
FC155C 4A6F000C               tst.w    12(A7)                       Drive A ?
FC1560 6706                   beq      $FC1568                      Yes
FC1562 43F900000A0A           lea      $A0A,Al                      Else address of dsbl
FC1568 3379000004400002       move.w   $440,2(A1)                   Seek rate in dsb
FC1570 70FF                   moveq.l  #-1,D0                       Default error number
FC1572 42690000               clr.w    (A1)                         Track number to zero
FC1576 610004BC               bsr      $FC1A34                      floplock, set parameters
FC157A 61000698               bsr      $FC1C14                      select, select drive and side
FC157E 337CFF000000           move.w   #$FF00,(A1)                  Track number negative, invalid
FC1584 6100061A               bsr      $FC1BA0                      restore, track zero
FC1588 670C                   beq      $FC1596                      OK, flopok
FC158A 7E0A                   moveq.l  #10,D7                       Track 10
FC158C 610005A0               bsr      $FC1B2E                      hseek, find track
FC1590 6608                   bne      $FC159A                      Error, flopfail
FC1592 6100060C               bsr      $FC1BA0                      restore
FC1596 67000542               beq      $FC1ADA                      OK, flopok
FC159A 60000530               bra      $FC1ACC                      flopfail

*****************************************************************   floprd, read sector(s) from disk
FC159E 6100071E               bsr      $FC1CBE                      change, test for disk change
FC15A2 70F5                   moveq.l  #-11,D0                      Read error as error number
FC15A4 6100048E               bsr      $FC1A34                      floplock, set parameters
FC15A8 6100066A               bsr      $FC1C14                      select, select drive and side
FC15AC 610005CC               bsr      $FC1B7A                      go2track, find track
FC15B0 66000090               bne      $FC1642                      Try again if error
FC15B4 33FCFFFF000009E0       move.w   #-1,$9E0                     General error
FC15BC 3CBC0090               move.w   #$90,(A6)
FC15C0 3CBC0190               move.w   #$190,(A6)                   Clear DMA status, select read
FC15C4 3CBC0090               move.w   #$90,(A6)
FC15C8 33ED09CAFFFF8604       move.w   $9CA(A5),$FFFF8604           ccount, sector counter
FC15D0 3CBC0080               move.w   #$80,(A6)                    Select 1772
FC15D4 3E3C0090               move.w   #$90,D7                      Read multiple sectors
FC15D8 610006B6               bsr      $FC1C90                      wdiskctl, pass D7 to 1772
FC15DC 2E3C00040000           move.l   #$40000,D7                   Timeout counter
FC15E2 246D09D0               move.l   $9D0(A5),A2                  edma, end address for DMA
FC15E6 08390005FFFFFA01       btst     #5,$FFFFFA01                 mfp gpip, 1772 done ?
FC15EE 6734                   beq      $FC1624                      Yes
FC15F0 5387                   subq.l   #1,D7                        Decrement counter
FC15F2 6724                   beq      $FC1618                      Timeout ?
FC15F4 1B79FFFF860909DB       move.b   $FFFF8609,$9DB(A5)
FC15FC 1B79FFFF860B09DC       move.b   $FFFF860B,$9DC(A5)           DMA address
FC1604 1B79FFFF860D09DD       move.b   $FFFF860D,$9DD(A5)
FC160C B5ED09DA               cmp.l    $9DA(A5),A2                  End address reached?
FC1610 6ED4                   bgt      $FC15E6                      No
FC1612 610005E6               bsr      $FC1BFA                      reset, end transfer
FC1616 600C                   bra      $FC1624
FC1618 3B7CFFFE09E0           move.w   #-2,$9E0(A5)                 Drive not ready
FC161E 610005DA               bsr      $FC1BFA                      reset, end transfer
FC1622 601E                   bra      $FC1642
FC1624 3CBC0090               move.w   #$90,(A6)                    Select DMA status register
FC1628 3016                   move.w   (A6),D0                      Read status
FC162A 08000000               btst     #0,D0                        DMA error ?
FC162E 6712                   beq      $FC1642                      Yes, try again
FC1630 3CBC0080               move.w   #$80,(A6)                    Select li7i2
FC1634 6100066E               bsr      $FC1CA4                      rdiskctl, read status register
FC1638 C03C0018               and.b    #$18,D0                      Isolate RNF, CRC and Lost Data
FC163C 6700049C               beq      $FC1ADA                      No error, flopok
FC1640 6118                   bsr      $FC165A                      errbits, determine error number
FC1642 0C6D000109B0           cmp.w    #1,$9B0(A5)                  retrycnt to second attempt?
FC1648 6604                   bne      $FC164E                      No
FC164A 610004FA               bsr      $FC1B46                      ressek, home and seek
FC164E 536D09B0               subq.w   #1,$9B0(A5)                  Decrement retrycnt
FC1652 6A00FF54               bpl      $FC15A8                      Another attempt?
FC1656 60000474               bra      $FC1ACC                      No, flopfail

*****************************************************************   errbits, create floppy error number
FC165A 72F3                   moveq.l  #-13,D1                      Diskette write-protected
FC165C 08000006               btst     #6,D0                        Write protect ?
FC1660 6614                   bne      $FC1676                      Yes
FC1662 72F8                   moveq.l  #-8,D1                       Sector not found
FC1664 08000004               btst     #4,D0                        Sector not found ?
FC1668 660C                   bne      $FC1676                      Yes
FC166A 72FC                   moveq.l  #-4,D1                       CRC Error
FC166C 08000003               btst     #3,D0                        CRC Error ?
FC1670 6704                   beq      $FC1676                      No
PC1672 322D09DE               move.w   $9DE(A5),D1                  Default error
FC1676 3B4109E0               move.w   D1,$9E0(A5)
FC167A 4E75                   rts

*****************************************************************   flopwr, write sector(s) to disk
FC167C 61000640               bsr      $FC1CBE                      change, test for disk change
FC1680 70F6                   moveq.l  #-10,D0                      Write error as default error
FC1682 610003B0               bsr      $FC1A34                      floplock, set parameters
FC1686 302D09C6               move.w   $9C6(A5),D0                  csect, sector number 1 ?
FC168A 5340                   subq.w   #1,D0
FC168C 806D09C4               or.w     $9C4(A5),D0                  ctrack, track number 0
FC1690 806D09C8               or.w     $9C8(A5),D0                  cside, side 0 ?
FC1694 6606                   bne      $FC169C                      No, not boot sector
FC1696 7002                   moveq.l  #2,D0                        media change
FC1698 6100065C               bsr      $FC1CF6                      Set to 'unsure'
FC169C 61000576               bsr      $FC1C14                      select, select track and side
FC16A0 610004D8               bsr      $FC1B7A                      go2track, find track
FC16A4 6600007E               bne      $FC1724                      Error, try agein
FC16A8 3B7CFFFF09E0           move.w   #-1,$9E0(A5)                 currerr to default
FC16AE 3CBC0190               move.w   #$190,(A6)
FC16B2 3CBC0090               move.w   #$90,(A6)                    Clear DMA status, to write
FC16B6 3CBC0190               move.w   #$190,(A6)
FC16BA 3E3C0001               move.w   #1,D7                        Sector count register
FC16BE 610005D0               bsr      $FC1C90                      Wdiskctl, D7 to 1772
FC16C2 3CBC0180               move.w   #$180,(A6)                   Select 1772
FC16C6 3E3C00A0               move.w   #$A0,D7                      Write sector
FC16CA 610005C4               bsr      $FC1C90                      Wdiskctl, D1 t0 1772
FC16CE 2E3C00040000           move.l   #$40000,D7                   Timeout counter
FC16D4 08390005FFFFFA01       btst     #5,$FFFFFA01                 mfp gpip, 1772 done ?
FC16DC 670A                   beq      $FC16E8                      Yes
FC16DE 5387                   subq.l   #1,D7                        Decrement timeout counter
FC16E0 66F2                   bne      $FC16D4                      Timeout?
FC16E2 61000516               bsr      $FC1BFA                      reset, terminate transfer
FC16E6 6034                   bra      $FC171C                      Next try
FC16E8 3CBC0180               move.w   #$180,(A6)                   Select 1772
FC16EC 610005B6               bsr      $FC1CA4                      rdiskctl, read status register
FC16F0 6100FF68               bsr      $FC165A                      errbits, calculate error number
FC16F4 08000006               btst     #6,D0                        write protect ?
FC16F8 660003D2               bne      $FC1ACC                      flopfail, no further attempt
FC16FC C03C005C               and.b    #$5C,D0                      write protect, RNF, CRC and Lost Data
FC1700 661A                   bne      $FC171C                      Error, try again
FC1702 526D09C6               addq.w   #1,$9C6(A5)                  csect, increment sector number
FC1706 06AD0000020009CC       add.l    #512,$9CC(A5)                cdma, DMA address to next sector
FC170E 536D09CA               subq.w   #1,$9CA(A5)                  ccount, decrement number of sectors
FC1712 670003C6               beq      $FC1ADA                      All sectors, done, flopok
FC1716 61000524               bsr      $FC1C3C                      select1, sector number and DMA pointer
FC171A 608C                   bra      $FC16A8                      Write next sector without seek
FC171C 0C6D000109B0           cmp.w    #1,$9B0(A5)                  retrycnt, second try?
FC1722 6604                   bne      $FC1728                      No
FC1724 61000420               bsr      $FC1B46                      reseek, home and seek
FC1728 536D09B0               subq.w   #1,$9B0(A5)                  retrycnt, decrement try counter
FC172C 6A00FF6E               bpl      $FC169C                      Another try?
FC1730 6000039A               bra      $FC1ACC                      No, flopfail

*****************************************************************   floprmt, format track
FC1734 0CAF876543210016       cmp.l    #$87654321,22(A7)            Magic number ?
FC173C 6600038E               bne      $FC1ACC                      No, flopfail
FC1740 6100057C               bsr      $FC1CBE                      change, test for disk change
FC1744 70FF                   moveq.l  #-1,D0                       Default Error Nummer
FC1746 610002EC               bsr      $FC1A34                      floplock, set parameters
FC174A 610004C8               bsr      $FC1C14                      select, select drive and side
FC174E 3B6F000E09D4           move.w   14(A7),$9D4(A5)              spt, sectors per track
FC1754 3B6F001409D6           move.w   20(A7),$9D6(A5)              interlv, interleave factor
FC175A 3B6F001A09D8           move.w   26(A7),$9D8(A5)              virgin, sector data for formatting
FC1760 7002                   moveq.l  #2,D0                        'changed'
FC1762 61000592               bsr      $FC1CF6                      Diskette changed
FC1766 610003C0               bsr      $FC1B28                      hseek, search for track
FC176A 66000360               bne      $FC1ACC                      Not found, flopfail
FC176E 336D09C40000           move.w   $9C4(A5),(A1)                ctrack, write current: track in DSB
FC1774 3B7CFFFF09E0           move.w   #-1,$9E0(A5)                 General error
FC177A 6128                   bsr      $FC17A4                      Format track
FC177C 6600034E               bne      $FC1ACC                      flopfail, error
FC1780 3B6D09D409CA           move.w   $9D4(A5),$9CA(A5)            spt sectors per track as ccount counter
FC1786 3B7C000109C6           move.w   #1,$9C6(A5)                  csect, start with sector 1
FC178C 6100015C               bsr      $FC18EA                      verify, verify sector
FC1790 246D09CC               move.l   $9CC(A5),A2                  cdma, list with bad sectors
FC1794 4A52                   tst.w    (A2)                         Bad sector?
FC1796 67000342               beq      $FC1ADA                      No, flopok
FC179A 3B7CFFF009E0           move.w   #-16,$9E0(A5)                Bad sectors
FC17A0 6000032A               bra      $FC1ACC                      flopfail, error

*****************************************************************   fmtrack, format track
FC17A4 3B7CFFF609DE           move.w   #-10,$9DE(A5)                Write error
FC17AA 363C0001               move.w   #1,D3                        Start with sector 1
FC17AE 246D09CC               move.l   $9CC(A5),A2                  cdma, buffer for track data
FC17B2 323C003B               move.w   #$3B,D1                      60 times
FC17B6 103C004E               move.b   #$4E,D0                      $4E, track header
FC17BA 6100010A               bsr      $FC18C6                      wmult, write in buffer
FC17BE 3803                   move.w   D3,D4                        Save sector number
FC17C0 323C000B               move.w   #$B,D1                       12 times
FC17C4 4200                   clr.b    D0                           0
FC17C6 610000FE               bsr      $FC18C6                      wmult, write in buffer
FC17CA 323C0002               move.w   #2,D1                        3 times
FC17CE 103C00F5               move.b   #$F5,D0                      $F5
FC17D2 610000F2               bsr      $FC18C6                      wmult, write in buffer
FC17D6 14FC00FE               move.b   #$FE,(A2)+                   $FE, address mark
FC17DA 14F9000009C5           move.b   $9C5,(A2)+                   Track
FC17E0 14F9000009C9           move.b   $9C9,(A2)+                   Side
FC17E6 14C4                   move.b   D4,(A2)+                     Sector
FC17E8 14FC0002               move.b   #2,(A2)+                     Sector size 512 bytes
FC17EC 14FC00F7               move.b   #$F7,(A2)+                   Write checksum
FC17F0 323C0015               move.w   #$15,D1                      22 times
FC17F4 103C004E               move.b   #$4E,D0                      $4E
FC17F8 610000CC               bsr      $FC18C6                      wmult, write in buffer
FC17FC 323C000B               move.w   #$B,D1                       12 times
FC1800 4200                   clr.b    D0                           0
FC1802 610000C2               bsr      $FC18C6                      wmult, write in buffer
FC1806 32300002               move.w   #2,D1                        3 times
FC180A 103C00F5               move.b   #$F5,D0                      $F5
FC180E 610000B6               bsr      $FC18C6                      wmult, write in buffer
FC1812 14FC00FB               move.b   #$FB,(A2)+                   $FB, data block mark
FC1816 323C00FF               move.w   #$FF,D1                      256 times
FC181A 14ED09D8               move.b   $9D8(A5),(A2)+               virgin, initial data in buffer
FC181E 14ED09D9               move.b   $9D9(A5),(A2)+
FC1822 51C9FFF6               dbra     D1,$FC181A                   Next word
FC1826 14FC00F7               move.b   #$F7,(A2)+                   Write checksum
FC182A 323C0027               move.w   #$27,D1                      40 times
FC182E 103C004E               move.b   #$4E,D0                      $4E
FC1832 61000092               bsr      $FC18C6                      wmult, write in buffer
FC1836 D86D09D6               add.w    $9D6(A5),D4                  Add interlv, next sector
FC183A B86D09D4               cmp.w    $9D4(A5),D4                  spt, largest sector number
FC183E 6F80                   ble      $FC17C0                      No, next sector
FC1840 5243                   addq.w   #1,D3                        Start sector plus one
FC1842 B66D09D6               cmp.w    $9D6(A5),D3                  interlv
FC1846 6F00FF76               ble      $FC17BE                      Next sector
FC184A 323C0578               move.w   #$578,D1                     1401 times (until track end)
FC184E 103C004E               move.b   #$4E,D0                      $4E
FC1852 6172                   bsr      $FC18C6                      wmult, write in buffer
FC1854 13ED09CFFFFF860D       move.b   $9CF(A5),$FFFF860D           dmalow
FC185C 13ED09CEFFFF860B       move.b   $9CE(A5),$FFFF860B           dmamid
FC1864 13ED09CDFFFF8609       move.b   $9CD(A5),$FFFF8609           dmahigh
FC186C 3CBC0190               move.w   #$190,(A6)
FC1870 3CBC0090               move.w   #$90,(A6)                    Clear DMA status, write
FC1874 3CBC0190               move.w   #$190,(A6)
FC1878 3E3C001F               move.w   #$1F,D7                      Sector counter to 31
FC187C 61000412               bsr      $FC1C90                      wdisKctl, send D7 to 1772
FC1880 3CBC0180               move.w   #$180,(A6)                   Select 1772
FC1884 3E3C00F0               move.w   #$F0,D7                      Format Track command
FC1888 61000406               bsr      $FC1C90                      wdiskctl, send D7 to 1772
FC188C 2E3C00040000           move.l   #$40000,D7                   Timeout counter
FC1892 08390005FFFFFA01       btst     #5,$FFFFFA01                 mfp gpip, 1772 done ?
FC189A 670C                   beq      $FC18A8                      Yes
FC189C 5387                   subq.l   #1,D7                        Decrement timeout counter
FC189E 66F2                   bne      $FC1892                      Run out?
FC18A0 61000358               bsr      $FC1BFA                      Reset, terminate
FC18A4 7E01                   moveq.l  #1,D7                        Clear Z-bit, error
FC18A6 4E75                   rts

FC18A8 3CBC0190               move.w   #$190,(A6)                   Select DMA status
FC18AC 3016                   move.w   (A6),D0                      Read status
FC18AE 08000000               btst     #0,D0                        DMA error ?
FC18B2 67F0                   beq      $FC18A4                      Yes, error
FC18B4 3CBC0180               move.w   #$180,(A6)                   Select 1772 status register
FC18B8 610003EA               bsr      $FC1CA4                      rdiskctl, read register
FC18BC 6100FD9C               bsr      $FC165A                      errbits, calculate error number
FC18C0 C03C0044               and.b    #$44,D0                      Test write protect and lost data
FC18C4 4E75                   rts

FC18C6 14C0                   move.b   D0,(A2)+                     Write byte in buffer
FC18C8 51C9FFFC               dbra     D1,$FC18C6                   Next byte
FC18CC 4E75                   rts

*****************************************************************   flopver, verify sector(s)
FC18CE 610003EE               bsr      $FC1CBE                      change, test for disk change
FC18D2 70F5                   moveq.l  #-11,D0                      Read error as default error
FC18D4 6100015E               bsr      $FC1A34                      floplock, set parameter
FC18D8 6100033A               bsr      $FC1C14                      select
FC18DC 6100029C               bsr      $FC1B7A                      go2track, find track
FC18E0 660001EA               bne      $FC1ACC                      flopfaii, error
FC18E4 6104                   bsr      $FC18EA                      verifyl, verify sectors
FC18E6 600001F2               bra      $FC1ADA                      flopok, done

*****************************************************************   verifyl
FC18EA 3B7CFFF509DE           move.w   #-11,$9DE(A5)                Read error
FC18F0 246D09CC               move.l   $9CC(A5),A2                  cdma, DMA buffer for bad-sector list
FC18F4 06AD0000020009CC       add.l    #512,$9CC(A5)                cmda to next sector
FC18FC 3B7C000209B0           move.w   #2,$9B0(A5)                  retrycnt, 2 tries
FC1902 3CBC0084               move.w   #$84,(A6)                    Select sector register
FC1906 3E2D09C6               move.w   $9C6(A5),D7                  csect, sector number
FC190A 61000384               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC190E 13ED09CFFFFF860D       move.b   $9CF(A5),$FFFF860D
FC1916 13ED09CEFFFF860B       move.b   $9CE(A5),$FFFF860B           Set DMA address
FC191E 13ED09CDFFFF8609       move.b   $9CD(A5),$FFFF8609
FC1926 3CBC0090               move.w   #$90,(A6)
FC192A 3CBC0190               move.w   #$190,(A6)                   Clear DMA status, read
FC192E 3CBC0090               move.w   #$90,(A6)
FC1932 3E3C0001               move.w   #1,D7                        Sector counter to l
FC1936 61000358               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC193A 3CBC0080               move.w   #$80,(A6)                    Select 1772 command register
FC193E 3E3C0080               move.w   #$80,D7                      Read Sector command
FC1942 6100034C               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC1946 2E3C00040000           move.l   #$40000,D7                   Timeout counter
FC194C 08390005FFFFFA01       btst     #5,$FFFFFA01                 mfp gpip, 1772 done?
FC1954 670A                   beq      $FC1960                      Yes
FC1956 5387                   subq.l   #1,D7                        Decrement timeout counter
FC1958 66F2                   bne      $FC194C                      Run out?
FC195A 6100029E               bsr      $FC1BFA                      Reset 1772, terminate transfer
FC195E 6036                   bra      $FC1996                      Next try
FC1960 3CBC0090               move.w   #$90,(A6)                    Select DMA status register
FC1964 3016                   move.w   (A6),D0                      Read status
FC1966 08000000               btst     #0,D0                        DMA error ?
FC196A 672A                   beq      $FC1996                      Yes, try again
FC196C 3CBC0080               move.w   #$80,(A6)                    Select 1772 status register
FC1970 61000332               bsr      $FC1CA4                      rdiskctl, read status
FC1974 6100FCE4               bsr      $FC165A                      errbits, calculate error number
FC1978 C03C001C               and.b    #$1C,D0                      Test RNF, CRC and Lost Data
FC197C 6618                   bne      $FC1996                      Error next try
FC197E 526D09C6               addq.w   #1,$9C6(A5)                  csect, next sector
FC1982 536D09CA               subq.w   #1,$9CA(A5)                  ccount, decrement sector counter
FC1986 6600FF74               bne      $FC18FC                      Another sector?
FC198A 04AD0000020009CC       sub.l    #512,$9CC(A5)                cdma, reset DMA pointer
FC1992 4252                   clr.w    (A2)                         Terminate bad sector list with zero
FC1994 4E75                   rts      ?n1;?a3;
FC1996 0C6D000109B0           cmp.w    #1,$9B0(A5)                  retrycnt,2nd try?
FC199C 6604                   bne      $FC19A2                      No
FC199E 610001A6               bsr      $FC1B46                      reseek, home and seek
FC19A2 536D09B0               subq.w   #1,$9B0(A5)                  Decrement retrycnt
FC19A6 6A00FF66               bpl      $FC190E                      Another try?
FC19AA 34ED09C6               move.w   $9C6(A5),(A2)+               csect, sector number in bad sector list
FC19AE 60CE                   bra      $FC197E                      Next sector

*****************************************************************   flopvbl, Floppy Vertical Blank Handler
FC19B0 9BCD                   sub.l    A5,A5                        Clear A5
FC19B2 4DF9FFFF8606           lea      $FFFF8606,A6                 Address of the floppy register
FC19B8 50ED09BE               st       $9BE(A5)                     Set motor on flag
FC19BC 4A6D043E               tst.w    $43E(A5)                     flock, floppies active ?
FC19C0 6670                   bne      $FC1A32                      Yes, do nothing
FC19C2 203900000466           move.l   $466,D0                      _frclock
FC19C8 1200                   move.b   D0,D1
FC19CA C23C0007               and.b    #7,D1                        Calculate mod 8
FC19CE 6638                   bne      $FC1A08                      8th tnterrupt ?
FC19D0 3CBC0080               move.w   #$80,(A6)                    Select 1772 status register
FC19D4 E608                   lsr.b    #3,D0                        Bit 4 as drive number
FC19D6 C07C0001               and.w    #1,D0
FC19DA 41ED09B2               lea      $9B2(A5),A0                  wpstatus
FC19DE D0C0                   add.w    D0,A0
FC19E0 B079000004A6           cmp.w    $4A6,D0                      _nflops
FC19E6 6602                   bne      $FC19EA
FC19E8 4240                   clr.w    D0
FC19EA 5200                   addq.b   #1,D0                        Drive select bit
FC19EC E308                   lsl.b    #1,D0                        Write in position
FC19EE 0A000007               eor.b    #7,D0                        Invert for active low
FC19F2 6100026C               bsr      $FC1C60                      Select drive
FC19F6 3039FFFF8604           move.w   $FFFF8604,D0                 dskctl, read 1772 status
FC19FC 08000006               btst     #6,D0                        Test write protect bit
FC1A00 56D0                   sne      (A0)                         and save
FC1A02 1002                   move.b   D2,D0                        Restore previous status
FC1A04 6100025A               bsr      $FC1C60
FC1A08 302D09B2               move.w   $9B2(A5),D0                  wpstatus
FC1A0C 816D09B4               or.w     D0,$9B4(A5)                  Write in wplatch
FC1A10 4A6D09C0               tst.w    $9C0(A5)                     deslflg, floppies already deselected?
FC1A14 6618                   bne      $FC1A2E                      Yes
FC1A16 6100028C               bsr      $FC1CA4                      Read 1772 status register
FC1A1A 08000007               btst     #7,D0                        Motor-on bit set?
FC1A1E 6612                   bne      $FC1A32                      Yes, don't deselect
FC1A20 103C0007               move.b   #7,D0                        Both drives
FC1A24 6100023A               bsr      $FC1C60                      Deselect
FC1A28 3B7C000109C0           move.w   #1,$9C0(A5)                  Set deslflg
FC1A2E 426D09BE               clr.w    $9BE(A5)                     Clear motoron flag
FC1A32 4E75                   rts

*****************************************************************   floplock
FC1A34 48F978F8000009E2       movem.l  D3-D7/A3-A6,$9E2             Save registers
FC1A3C 9BCD                   sub.l    A5,A5                        Clear A5
FC1A3E 4DF9FFFF8606           lea      $FFFF8606,A6                 Address of the floppy register
FC1A44 50F9000009BE           st       $9BE                         Set motoron flag
FC1A4A 3B4009DE               move.w   D0,$9DE(A5)                  deferror
FC1A4E 3B4009E0               move.w   D0,$9E0(A5)                  currerr
FC1A52 3B7C0001043E           move.w   #1,$43E(A5)                  flock, disable floppy VBL routine
FC1A58 2B6F000809CC           move.l   8(A7),$9CC(A5)               cdma, buffer address
FC1A5E 3B6F001009C2           move.w   16(A7),$9C2(A5)              cdev, drive
FC1A64 3B6F001209C6           move.w   18(A7),$9C6(A5)              csect, sector
FC1A6A 3B6F001409C4           move.w   20(A7),$9C4(A5)              ctrack, track
FC1A70 3B6F001609C8           move.w   22(A7),$9C8(A5)              cside, side
FC1A76 3B6F001809CA           move.w   24(A7),$9CA(A5)              ccount, number of sectors
FC1A7C 3B7C000209B0           move.w   #2,$9B0(A5)                  retrycnt, 2 tries
FC1A82 43ED0A06               lea      $A06(A5),A1                  Address dsb0
FC1A86 4A6D09C2               tst.w    $9C2(A5)                     cdev, drive A?
FC1A8A 6704                   beq      $FC1A90                      Yes
FC1A8C 43ED0A0A               lea      $A0A(A5),A1                  else address dsbl
FC1A90 7E00                   moveq.l  #0,D7
FC1A92 3E2D09CA               move.w   $9CA(A5),D7                  ccount, number of sectors
FC1A96 E14F                   lsl.w    #8,D7
FC1A98 E34F                   lsl.w    #1,D7                        times 512
FC1A9A 206D09CC               move.l   $9CC(A5),A0                  cdma, start DMA address
FC1A9E D1C7                   add.l    D7,A0                        plus sector length
FC1AA0 2B4809D0               move.l   A0,$9D0(A5)                  edma, yields end DMA address
FC1AA4 4A690000               tst.w    (A1)                         dcurtack, current track
FC1AA8 6A20                   bpl      $FC1ACA                      Valid ?
FC1AAA 61000168               bsr      $FC1C14                      select, select drive and side
FC1AAE 42690000               clr.w    (A1)                         Track number to zero
FC1AB2 610000EC               bsr      $FC1BA0                      restore, find track zero
FC1AB6 6712                   beq      $FC1ACA                      OK ?
FC1AB8 7E0A                   moveq.l  #10,D7                       Track 10
FC1ABA 6172                   bsr      $FC1B2E                      hseek, find track
FC1ABC 6606                   bne      $FC1AC4                      Error ?
FC1ABE 610000E0               bsr      $FC1BA0                      restore, find track 0
FC1AC2 6706                   beq      $FC1ACA                      OK ?
FC1AC4 337CFF000000           move.w   #$FF00,(A1)                  Track number invalid
FC1ACA 4E75                   rts

*****************************************************************   fliopfail, error in disk routine
FCIACC 7001                   moveq.1  #1,D0                        media change to unsure
FC1ACE 61000226               bsr      $FC1CF6                      set
FC1AD2 302D09E0               move.w   $9E0(A5),D0                  currerr, error number
FC1AD6 48C0                   ext.l    D0
FC1AD8 6002                   bra      $FC1ADC

*****************************************************************   flopok, error-free disk routine
FC1ADA 4280                   clr.l    D0                           Clear error number
FC1ADC 2F00                   move.l   D0,-(A7)                     Save error number
FC1ADE 3CBC0086               move.w   #$86,(A6)                    Select 1772
FC1AE2 3E290000               move.w   (A1),D7                      Get track number
FC1AE6 610001A8               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC1AEA 3C3C0010               move.w   #$10,D6                      Seek command
FC1AEE 610000C6               bsr      $FC1BB6                      flopcmds
FC1AF2 3039000009C2           move.w   $9C2,D0                      cdev, drive number
FC1AF8 E548                   lsl.w    #2,D0                        times 4
FC1AFA 41F9000009B6           lea      $9B6,A0                      acctim
FC1B00 21AD04BA0000           move.l   $4BA(A5),0(A0,D0.w)          _hz_200 as last access time
FC1B06 0C790001000004A6       cmp.w    #1,$4A6                      _nflops
FC1B0E 6606                   bne      $FC1B16                      Only one drive?
FC1B10 216D04BA0004           move.l   $4BA(A5),4(A0)               _hz_ 200 as last access time
FC1B16 201F                   move.l   (A7)+,D0                     Error number
FC1B15 4CF978F8000009E2       movem.l  $9E2,D3-D7/A3-A6             Restore registers
FC1B20 42790000043E           clr.w    $43E                         flock, release floppy VBL routine
FC1B26 4E75                   rts

*****************************************************************   hseek, find track
FC1B28 3E39000009C4           move.w   $9C4,D7                      ctrack, track number
FC1B2E 33FCFFFA000009E0       move.w   #-6,$9E0                     Seek error, track not found
FC1B36 3CBC0086               move.w   #$86,(A6)                    Select 1772
FC1B3A 61000154               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC1B3E 3C3C0010               move.w   #$10,D6                      Seek command
FC1B42 60000072               bra      $FC1BB6                      flopcmds

*****************************************************************   reseek, home and seek
FC1B46 33FCFFFA000009E0       move.w   #-6,$9E0                     Seek error, track not found
FC1B4E 6150                   bsr      $FC1BA0                      Restore
FC1B50 664C                   bne      $FC1B9E                      Error ?
FC1B52 42690000               clr.w    (A1)                         Track number to zero
FC1B56 3CBC0082               move.w   #$82,(A6)                    Select track register
FC1B5A 4247                   clr.w    D7                           Track zero
FC1B5C 61000132               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC1B60 3CBC0086               move.w   #$86,(A6)                    Select data register
FC1B64 3E3C0005               move.w   #5,D7                        Track 5
FC1B68 61000126               bsr      $FC1C90                      wdiskctl, D7 to 1772
FC1B6C 3C3C0010               move.w   #$10,D6                      Seek command
FC1B70 6144                   bsr      $FC1BB6                      flopcmds
FC1B72 662A                   bne      $FC1B9E                      Error ?
FC1B74 337C00050000           move.w   #5,(A1)                      Track number to 5

*****************************************************************   go2track, find track
FC1B7A 33FCFFFA000009E0       move.w   #-6,$9E0                     Seek error, track not found
FC1B82 3CBC0086               move.w   #$86,(A6)                    Select data register
FC1B86 3E2D09C4               move.w   $9C4(A5),D7                  Track number
FC1B8A 61000104               bsr      $FC1C90                      woiskctl, D7 to 1772
FC1B8E 7C14                   moveq.l  #$14,D6                      Seek with verify command
FC1B90 6124                   bsr      $FC1BB6                      flopcmds
FC1B92 660A                   bne      $FC1B9E                      Error ?
FC1B94 336D09C40000           move.w   $9C4(A5),(A1)                Save track number
FC1B9A CE3C0018               and.b    #$18,D7                      Test RNF, CRC, Lost Data
FC1B9E 4E75                   rts

*****************************************************************   restore, find track zero
FC1BA0 4246                   clr.w    D6                           Restore command
FC1BA2 6112                   bsr      $FC1BB6                      flopcmds
FC1BA4 660E                   bne      $FC1BB4                      Error ?
FC1BA6 08070002               btst     #2,D7                        Test track-zero bit
FC1BAA 0A3C0004               eor.b    #4,SR                        Invert Z-flag
FC1BAE 6604                   bne      $FC1BB4                      Not track zero?
FC1BB0 42690000               clr.w    (A1)                         Track number to zero
FC1BB4 4E75                   rts

*****************************************************************   flopcmds
FC1BB6 30290002               move.w   2(A1),D0                     Seek rate
FC1BBA C03C0003               and.b    #3,D0                        Bits 0 and 1
FC1BBE 8C00                   or.b     D0,D6                        OR with command word
FC1BC0 2E3C00040000           move.l   #$40000,D7                   Timeout counter
FC1BC6 3CBC0080               move.w   #$80,(A6)                    Select 1772
FC1BCA 610000D8               bsr      $FC1CA4                      rdiskctl
FC1BCE 08000007               btst     #7,D0                        Motor on ?
FC1BD2 6606                   bne      $FC1BDA                      Yes
FC1BD4 2E3C00060000           move.l   #$60000,D7                   Else longer timeout
FC1BDA 610000AA               bsr      $FC1C86                      wdiskctl6, write command in D6
FC1BDE 5387                   subq.l   #1,D7                        Decrement timeout counter
FC1BE0 6712                   beq      $FC1BF4                      Run out?
FC1BE2 08390005FFFFFA01       btst     #5,$FFFFFA01                 mfp gpip, disk done?
FC1BEA 66F2                   bne      $FC1BDE                      No, wait
FC1BEC 610000AC               bsr      $FC1C9A                      rdiskctl7, read status
FC1BF0 4246                   clr.w    D6                           OK
FC1BF2 4E75                   rts

FC1BF4 6104                   bsr      $FC1IBFA                     Reset 1772
FC1BF6 7C01                   moveq.l  #1,D6                        Error
FC1BF8 4E75                   rts

*****************************************************************   Reset 1772, Reset Floppy Controller
FC1BFA 3CBC0080               move.w   #$80,(A6)                    Select command register
FC1BFE 3E3C00D0               move.w   #$D0,D7                      Reset command
FC1C02 6100008C               bsr      $FC1C90                      Wdiskctl, D7 to 1772
FC1C06 3E3C000F               move.w   #$F,D7                       Delay counter
FC1C0A 51CFFFFE               dbra     D7,$FC1C0A                   Time run out?
FC1C0E 6100008A               bsr      $FC1C9A                      rdiskctl, read status
FC1C12 4E75                   rts

*****************************************************************   select, select drive and side
FC1C14 426D09C0               clr.w    $9C0(A5)                     Clear deslflg
FC1C18 302D09C2               move.w   $9C2(A5),D0                  cdev, drive number
FC1C1C 5200                   addq.b   #1,D0
FC1C1E E308                   lsl.b    #1,D0                        Calculate bit number
FC1C20 806D09C8               or.w     $9C8(A5),D0                  csid, side in bit 0
FC1C24 0A000007               eor.b    #7,D0                        Invert bits for active low
FC1C28 C03C0007               and.b    #7,D0
FC1C2C 6132                   bsr      $FC1C60                      setporta, set bits
FC1C2E 3CBC0082               move.w   #$82,(A6)                    Select track register
FC1C32 3E290000               move.w   (A1),D7                      Get track number
FC1C36 6158                   bsr      $FC1C90                      Wdiskctl, D7 to 1772
FC1C38 422D09DA               clr.b    $9DA(A5)                     tmpdma, clear bits 24-31
FC1C3C 3CBC0084               move.w   #$84,(A6)                    Select sector register
FC1C40 3E2D09C6               move.w   $9C6(A5),D7                  csect, get sector number
FC1C44 614A                   bsr      $FC1C90                      wdiskctl, D7 to 1772
FC1C46 13ED09CFFFFF860D       move.b   $9CF(A5),$FFFF860D
FC1C4E 13ED09CEFFFF860B       move.b   $9CE(A5),$FFFF860B           Set DMA address
FC1C56 13ED09CDFFFF8609       move.b   $9CD(A5),$FFFF8609
FC1C5E 4E75                   rts

*****************************************************************   setporta, select drive and side
FC1C60 40E7                   move.w   SR,-(A7)                     Save status
FC1C62 007C0700               or.W     #$700,SR                     IPL 7, no interrupts
FC1C66 13FC000EFFFF8800       move.b   #$E,$FFFF8800                Select port A
FC1C6E 1239FFFF8800           move.b   $FFFF8800,D1                 Read data from port
FC1C74 1401                   move.b   D1,D2                        and save
FC1C76 C23C00F8               and.b    #$F8,D1                      Clear bits 0-2
FC1C7A 8200                   or.b     D0,D1                        Set new bits
FC1C7C 13C1FFFF8802           move.b   D1,$FFFF8802                 Write result in port A
FC1C82 46DF                   move.w   (A7)+,SR                     Reset status
FC1C84 4E75                   rts

*****************************************************************   wdiskct6
FC1C86 6124                   bsr      $FC1CAC                      Delay loop for disk controller
FC1C88 33C6FFFF8604           move.w   D6,$FFFF8604                 D6 to disk controller
FC1C8E 601C                   bra      $FC1CAC                      Delay loop for disk controller

*****************************************************************   wdiskctl
FC1C90 611A                   bsr      $FC1CAC                      Delay loop for disk controller
FC1C92 33C7FFFF8604           move.w   D7,$FFFF8604                 D7 to disk controller
FC1C98 6012                   bra      $FC1CAC                      Delay loop for disk controller

*****************************************************************   rdiskct7
FC1C9A 6110                   bsr      $FC1CAC                      Delay loop for disk controller
FC1C9C 3E39FFFF8604           move.w   $FFFF8604,D7                 Disk controller status to D7 
FC1CA2 6008                   bra      $FC1CAC                      Delay loop for disk controller

*****************************************************************   rdiskctl
FC1CA4 6106                   bsr      $FC1CAC                      Delay loop for disk controller
FC1CA6 3039FFFF8604           move.w   $FFFF8604,D0                 Disk controller status to D0 
FC1CAC 40E7                   move.w   SR,-(A7)                     Save status
FC1CAE 3F07                   move.w   D7,-(A7)                     Save D7
FC1CB0 3E3C0020               move.w   #$20,D7                      Counter
FC1CB4 51CFFFFE               dbra     D7,$FC1CB4                   Delay loop
FC1CB8 3E1F                   move.w   (A7)+,D7                     D7 back
FC1CBA 46DF                   move.w   (A7)+,SR                     Status back
FC1CBC 4E75                   rts                                   

*****************************************************************   change, test for disk change
FC1CBE 0C790001000004A6       cmp.w    #1,$4A6                      _nflops
FC1CC6 662C                   bne      $FC1CF4                      0 or 2 drives, done 
FC1CC8 302F0010               move.w   16(A7),D0                    Drive number
FC1CCC B07900005622           cmp.w    $5622,D0                     Same disk number?
FC1CD2 671C                   beq      $FC1CF0                      Yes
FC1CD4 3F00                   move.w   D0,-(A7)                     Drive number
FC1CD6 3F3CFFEF               move.w   #-17,-(A7)                   'Insert Disk'
FC1CDA 6100EA62               bsr      $FC073E                      Critical error handler 
FC1CDE 584F                   addq.w   #4,A7                        Correct stack pointer 
FC1CE0 33FCFFFF000009B4       move.w   #-1,$9B4                     wplatch, status unsure 
FC1CE8 33EF001000005622       move.w   16(A7),$5622                 Save disk number
FC1CF0 426F0010               clr.w    16(A7)                       Drive number to zero
FC1CF4 4E75                   rts                                   

*****************************************************************   setdmode, set Drive Change Mode
FC1CF6 41F900004DB8           lea      $4DB8,A0                     Address of the bpb 
FC1CFC 1F00                   move.b   D0,-(A7)                     Save mode
FC1CFE 302D09C2               move.w   $9C2(A5),D0                  cdev, get drive number 
FC1D02 119F0000               move.b   (A7)+,0(A0,D0.w)             Set drive mode 
FC1D06 4E75                   rts 

*****************************************************************   dskf, disk flags 
FC1D08 AE                     dc.b     $AE 
FC1D09 D6                     dc.b     $D6 
FC1D0A 8C                     dc.b     $8C 
FC1D0B 17                     dc.b     $17 
FC1D0C FB                     dc.b     $FB 
FC1D0D 80                     dc.b     $80 
FC1D0E 6A                     dc.b     $6A 
FC1D0F 2B                     dc.b     $2B 
FC1D10 A6                     dc.b     $A6 
FC1D11 00                     dc.b     $00 

*****************************************************************   Jdostime, IKBD format to DOS format 
FC1D12 4BF900000000           lea      $0,A5                        Clear A5 
FC1D18 41ED0E01               lea      $E01(A5),A0                  Pointer to clock-time buffer 
FC1D1C 610000DE               bsr      $FC1DFC                      bcdbin 
FC1D20 04000050               sub.b    #80,D0                       Subtract offset of 80 
FC1D24 1400                   move.b   D0,D2                        Year 
FC1D26 E982                   asl.l    #4,D2                        Write in position 
FC1D28 610000D2               bsr      $FC1DFC                      bcdbin 
FC1D2C D400                   add.b    D0,D2                        Add month
FC1D2E EB82                   asl.l    #5,D2                        Write in position
FC1D30 610000CA               bsr      $FC1DFC                      bcdbin
FC1D34 D400                   add.b    D0,D2                        Add day
FC1D36 EB82                   asl.l    #5,D2                        Write in position 
FC1D38 610000C2               bsr      $FC1DFC                      bcdbin
FC1D3C D400                   add.b    D0,D2                        Add hour
FC1D3E ED82                   asl.l    #6,D2                        Write in position 
FC1D40 610000BA               bsr      $FC1DFC                      bcdbin
FC1D44 D400                   add.b    D0,D2                        Add minute
FC1D46 EB82                   asl.l    #5,D2                        Write in position 
FC1D48 610000B2               bsr      $FC1DFC                      bcdbin
FC1D4C E208                   lsr.b    #1,D0                        2-second resolution 
FC1D4E D400                   add.b    D0,D2                        Add seconds
FC1D50 2B420E0A               move.l   D2,$E0A(A5)                  Save new time
FC1D54 1B7C00000E4C           move.b   #0,$E4C(A5)                  Clear handshake flag 
FC1D5A 4E75                   rts

*****************************************************************   gettime, get current time and date 
FC1D5C 1B7CFFFF0E4C           move.b   #-1,$E4C(A5)                 Set handshake flag 
FC1D62 123C001C               move.b   #$1C,D1                      Get time of day command 
FC1D66 61000240               bsr      $FC1FA8                      Send to IKBD
FC1D6A 4A2D0E4C               tst.b    $E4C(A5)                     New time arrived? 
FC1D6E 66FA                   bne      $FC1D6A                      No, wait
FC1D70 202D0E0A               move.l   $E0A(A5),D0                  Put time in D0
FC1D74 4E75                   rts

*****************************************************************   settime, set time and data 
FC1D76 2B6F00040E0E           move.l   4(A7),$E0E(A5)               Pass time

*****************************************************************   ikbdtime
FC1D7C 41F900000E18           lea      $E18,A0                      Pointer to end of time buffer
FC1D82 242D0E0E               move.l   $E0E(A5),D2                  Get time to convert
FC1D86 1002                   move.b   D2,D0                        in D0
FC1D88 0200001F               and.b    #$1F,D0                      Bits 0-4, seconds
FC1D8C E300                   asl.b    #1,D0                        2-second resolution
FC1D8E 6154                   bsr      $FC1DE4                      convert
FC1D90 EA8A                   lsr.l    #5,D2                        Minutes
FC1D92 1002                   move.b   D2,D0                        
FC1D94 0200003F               and.b    #$3F,D0                      Bits 0-5 
FC1D98 614A                   bsr      $FC1DE4                      convert 
FC1D9A EC8A                   lsr.l    #6,D2                        Hours
FC1D9C 1002                   move.b   D2,D0                        
FC1D9E 0200001F               and.b    #$1F,D0                      Bits 0-4 
FC1DA2 6140                   bsr      $FC1DE4                      convert 
FC1DA4 EA8A                   lsr.l    #5,D2                        Day
FC1DA6 1002                   move.b   D2,D0                        
FC1DA8 0200001F               and.b    #$1F,D0                      Bits 0-4 
FC1DAC 6136                   bsr      $FC1DE4                      convert 
FC1DAE EA8A                   lsr.l    #5,D2                        Month
FC1DB0 1002                   move.b   D2,D0                        
FC1DB2 0200000F               and.b    #$F,D0                       Bits 0-3 
FC1DB6 612C                   bsr      $FC1DE4                      convert 
FC1DB8 E88A                   lsr.l    #4,D2                        Year
FC1DBA 1002                   move.b   D2,D0                        
FC1DBC 0200007F               and.b    #$7F,D0                      Bits 0-6
FC1DC0 6122                   bsr      $FC1DE4                      convert
FC1DC2 06100080               add.b    #$80,(A0)                    Add offset
FC1DC6 123C001B               move.b   #$1B,D1                      Set time of day command
FC1DCA 610001DC               bsr      $FC1FA8                      Send to IKBD
FC1DCE 7605                   moveq.l  #5,D3                        Number of bytes minus 1 
FC1DD0 45F900000E12           lea      $E12,A2                      Address of the string 
FC1DD6 610001F0               bsr      $FC1FC8                      ikbdws, send string
FC1DDA 123C001C               move.b   #$1C,D1                      Get time of day command 
FC1DDE 610001C8               bsr      $FC1FA8                      Send to IKBD
FC1DE2 4E75                   rts                                   

*****************************************************************   binbcd, convert byte to BCD 
FC1DE4 7200                   moveq.l  #0,D1                        Ten's counter
tC1DE6 760A                   moveq.l  #10,D3                       
FC1DE8 9003                   sub.b    D3,D0                        Subtract 10
FC1DEA 6B04                   bmi      $FC1DF0                      
FC1DEC 5201                   addq.b   #1,D1                        Increment ten's counter 
FC1DEE 60F8                   bra      $FC1DE8                      
FC1DF0 0600000A               add.b    #10,D0                       Generate one's place
FC1DF4 E901                   asl.b    #4,D1                        Tens in upper nibble
FC1DF6 D001                   add.b    D1,D0                        plus ones
FC1DF8 1100                   move.b   D0,-(A0)                     Write in buffer
FC1DFA 4E75                   rts                                   

*****************************************************************   bcdbin, convert BCD to binary
FC1DFC 7000                   moveq.l  #0,D0                        
FC1DFE 1010                   move.b   (A0),D0                      BCD byte
FC1E00 E808                   lsr.b    #4,D0                        Tens place
FC1E02 E308                   lsl.b    #1,D0                        times 2
FC1E04 1200                   move.b   D0,D1                        
FC1E06 E500                   asl.b    #2,D0                        times 4
FC1E08 D001                   add.b    D1,D0                        
FC1E0A 1218                   move.b   (A0)+,D1                     One's place
FC1E0C 0241000F               and.w    #$F,D1                       isolate 
FC1E10 D041                   add.w    D1,D0                        and add 
FC1E12 4E75                   rts

*****************************************************************   midiost, MIDI output status
FC1E14 70FF                   moveq.l  #-1,D0                       Default to OK
FC1E16 1439FFFFFC04           move.b   $FFFFFC04,D2                 Read MIDI ACIA status 
FC1E1C 08020001               btst     #1,D2                        and test
FC1E20 6602                   bne      $FC1E24                      OK
FC1E22 7000                   moveq.l  #0,D0                        Not OK, ACIA is sending 
FC1E24 4E75                   rts

*****************************************************************   midiwc, output character to MIDI
FC1E26 322F0006               move.w   6(A7),D1                     Get character 
FC1E2A 43F9FFFFFC04           lea      $FFFFFC04,A1                 MIDI ACIA control 
FC1E30 14290000               move.b   (A1),D2                      Get MIDI status 
FC1E34 08020001               btst     #1,D2                        OK ?
FC1E38 67F6                   beq      $FC1E30                      No, wait
FC1E3A 13410002               move.b   D1,2(A1)                     Output byte 
FC1E3E 4E75                   rts

*****************************************************************   midiws, send string to MIDI
FC1E40 7600                   moveq.l  #0,D3                        (unnecessary!)
FC1E42 362F0004               move.w   4(A7),D3                     Length of the string - 1 
FC1E46 246F0006               move.l   6(A7),A2                     Address of the string 
FC1E4A 121A                   move.b   (A2)+,D1                     Get byte
FC1E4C 61DC                   bsr      $FC1E2A                      and send
FC1E4E 51CBFFFA               dbra     D3,$FC1E4A                   Next byte
FC1E52 4B75                   rts

*****************************************************************   midstat, MIDI receiver status
FC1E54 41ED0DBE               lea      $DBE(A5),A0                  iorec for MIDI
FC1E58 43F9FFFFFC04           lea      $FFFFFC04,A1                 MIDI ACIA control 
FC1E5E 70FF                   moveq.l  #-1,D0                       Default to OK
FC1E60 45E80006               lea      6(A0),A2                     Head index
FC1E64 47E80008               lea      8(A0),A3                     Tail index
FC1E68 B54B                   cmpm.w   (A3)+,(A2)+                  Characters in buffer? 
FC1E6A 6602                   bne      $FC1E6E                      Yes
FC1E6C 7000                   moveq.l  #0,D0                        Character ready
FC1E6E 4E75                   rts                                   

*****************************************************************   midin, get character from MIDI
FC1E70 61E2                   bsr      $FC1E54                      midstat, character ready?
FC1E72 4A40                   tst.w    D0                           
FC1E74 67FA                   beq      $FC1E70                      No, wait
FC1E76 40E7                   move.w   SR,-(A7)                     Save status
FC1E78 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts 
FC1E7C 32280006               move.w   6(A0),D1                     Head index
FC1E80 B2680008               cmp.w    8(A0),D1                     Compare with tail index 
FC1E84 6716                   beq      $FC1E9C                      Buffer empty
FC1E86 5241                   addq.w   #1,D1                        Increment head index 
FC1E88 B2680004               cmp.w    4(A0),D1                     Larger buffer size?
FC1E8C 6502                   bcs      $FC1E90                      No
FC1E8E 7200                   moveq.l  #0,D1                        Start again beginning of buffer
FC1E90 22680000               move.l   (A0),A1                      Buffer address
FC1E94 10311000               move.b   0(A1,D1.w),D0                Get character from buffer 
FC1E98 31410006               move.w   D1,6(A0)                     Save new head index
FC1E9C 46DF                   move.w   (A7)+,SR                     Get status
FC1E9E 4E75                   rts                                   

*****************************************************************   lstout, printer output 
FC1EA0 082D00040E4A           btst     #4,$E4A(A5)                  RS 232 printer?
FC1EA6 660000DE               bne      $FC1F86                      Yes, output to RS 232 
FC1EAA 242D04BA               move.l   $4BA(A5),D2                  _hz_200, 200 Hz counter 
FC1EAE 94AD0E3E               sub.l    $E3E(A5),D2                  minus last time
FC1EB2 0C82000003E8           cmp.l    #1000,D2                     Less than 10 seconds
FC1EB8 6518                   bcs      $FC1ED2                      Yes
FC1EBA 242D04BA               move.l   $4BA(A5),D2                  _hz_200 
FC1EBE 6174                   bsr      $FC1F34                      lstostat, printer ready?
FC1EC0 4A40                   tst.w    D0                           
FC1EC2 6618                   bne      $FC1EDC                      Yes, output character 
FC1EC4 262D04BA               move.l   $4BA(A5),D3                  _hz_200, 200 Hz counter 
FC1EC8 9682                   sub.l    D2,D3                        minus last time
FC1ECA 0C8300001770           cmp.l    #6000,D3                     More than 30 seconds?
FC1ED0 6DEC                   blt      $FC1EBE                      No, wait
FC1ED2 7000                   moveq.l  #0,D0                        Character not sent 
FC1ED4 2B6D04BA0E3E           move.l   $4BA(A5),$E3E(A5)            Save _hz_200 as new time
FC1EDA 4E75                   rts                                   

*****************************************************************   Output character to parallel port
FC1EDC 40C3                   move.w   SR,D3                        Save status
FC1EDE 007C0700               or.w     #$700,SR                     IPL 7, no interrupts
FC1EE2 7207                   moveq.l  #7,D1                        Register 7 
FC1EE4 61000E6E               bsr      $FC2D54                      select 
FC1EE8 00000080               or.b     #$80,D0                      Port B
FC1EEC 7287                   moveq.l  #$87,D1                      Write register 7 
FC1EEE 61000E64               bsr      $FC2D54                      Port B to output
FC1EF2 46C3                   move.w   D3,SR                        Save status
FC1EF4 302F0006               move.w   6(A7),D0                     Character to output
FC1EF8 728F                   moveq.l  #$8F,D1                      Write port B
FC1EFA 61000E58               bsr      $FC2D54                      Output character
FC1EFE 610E                   bsr      $FC1F0E                      Strobe low
FC1F00 610C                   bsr      $FC1F0E                      Strobe low
FC1F02 6104                   bsr      $FC1F08                      Strobe high
FC1F04 70FF                   moveq.l  #-1,D0                       OK
FC1F06 4E75                   rts

*****************************************************************   Strobe high
FC1F08 7420                   moveq.l  #$20,D2                      Bit 5
FC1F0A 60000E8A               bra      $FC2D96                      set in port A

*****************************************************************   Strobe low
FC1F0E 74DF                   moveq.l  #$DF,D2                      Bit 5
FC1F10 60000EAA               bra      $FC2DBC                      clear in port A

*****************************************************************   lstin, get character from parallel port 
FC1F14 7207                   moveq.l  #7,D1                        Mixer
FC1F16 61000E3C               bsr      $FC2D54                      Select register in PSG 
FC1F1A 0200007F               and.b    #$7F,D0                      Port B to input
FC1F1E 7287                   moveq.l  #$87,D1                      Write register 7
FC1F20 61000E32               bsr      $FC2D54                      giacces
FC1F24 61E2                   bsr      $FC1F08                      Strobe high = receiver ready 
FC1F26 610C                   bsr      $FC1F34                      lstostat, character arrived? 
FC1F28 4A40                   tst.w    D0
FC1F2A 66FA                   bne      $FC1F26                      No, wait
FC1F2C 61E0                   bsr      $FC1F0E                      Strobe low = receiver busy
FC1F2E 720F                   moveq.l  #15,D1                       Select port B
FC1F30 60000E22               bra      $FC2D54                      Read byte from port

*****************************************************************   lstostat, printer output status 
FC1F34 41F9FFFFFA01           lea      $FFFFFA01,A0                 mfp gpip
FC1F3A 70FF                   moveq.l  #-1,D0                       Default to ok
FC1F3C 082800000000           btst     #0,(A0)                      Busy to low ?
FC1F42 6702                   beq      $FC1F46                      Yes
FC1F44 7000                   moveq.l  #0,D0                        Printer not ready
FC1F46 4E75                   rts

*****************************************************************   auxistat, RS 232 input status 
FC1F48 41ED0D8E               lea      $D8E(A5),A0                  iorec for rs232
FC1F4C 70FF                   moveq.l  #-1,D0                       Default to OK
FC1F4E 45E80006               lea      6(A0),A2                     Head index
FC1F52 47E80008               lea      8(A0),A3                     Tail index
FC1F56 B54B                   cmpm.w   (A3)+,(A2)+                  Buffer empty?
FC1F58 6602                   bne      $FC1F5C                      No
FC1F5A 7000                   moveq.l  #0,D0                        No characters ready
FC1F5C 4E75                   rts

*****************************************************************   auxin, RS 232 input
FC1F5E 61E8                   bsr      $FC1F48                      auxistat, character ready? 
FC1F60 4A40                   tst.w    D0
FC1F62 67FA                   beq      $FC1F5E                      No, wait
FC1F64 610005D6               bsr      $FC253C                      rs232get, get character
FC1F68 024000FF               and.w    #$FF,D0                      Isolate bits 0-7
FC1F6C 4E75                   rts

*****************************************************************   auxostat, RS 232 output status
FC1F6E 41ED0D8E               lea      $D8E(A5),A0                  ioerec for RS 232 
FC1F72 70FF                   moveq.l  #-1,D0                       Default to OK
FC1F74 34280016               move.w   22(A0),D2                    Tail index
FC1F78 61000896               bsr      $FC2810                      Test for wrap around 
FC1F7C B4680014               cmp.w    20(A0),D2                    Compare with head index 
FC1F80 6602                   bne      $FC1F84                      OK
FC1F82 7000                   moveq.l  #0,D0                        No space in buffer
FC1F84 4E75                   rts                                   

*****************************************************************   auxout, RS 232 output
FC1F86 322F0006               move.w   6(A7),D1                     Get byte
FC1F8A 61000554               bsr      $FC24E0                      rs232put, write in buffer 
FC1F8E 65F6                   bcs      $FC1F86                      Not sent, try again
FC1F90 4E75                   rts                                   

*****************************************************************   ikbdost, IKBD output status 
FC1F92 70FF                   moveq.l  #-1,D0                       Default to ok
FC1F94 1439FFFFFC0            move.b   $FFFFFC00,D2                 Keyboard ACIA status
FC1F9A 08020001               btst     #1,D2                        ACIA ready ?
FC1F9E 6602                   bne      $FC1FA2                      Yes
FC1FA0 7000                   moveq.l  #0,D0                        Not used
FC1FA2 4E75                   rts                                   

*****************************************************************   ikbdwc, send byte to IKBD 
FC1FA4 322F0006               move.w   6(A7),D1                     Get byte
FC1FA8 43F9FFFFFC00           lea      $FFFFFC00,A1                 Keyboard ACIA control
FC1FAE 14290000               move.b   (A1),D2                      Get ACIA status
FC1FB2 08020001               btst     #1,D2                        Ready?
FC1FB6 67F6                   beq      $FC1FAE                      No, wait 
FC1FB8 13410002               move.b   D1,2(A1)                     Send byte
FC1FBC 4E75                   rts                                   

*****************************************************************   ikbdws, send string to keyboard 
FC1FBE 7600                   moveq.l  #0,D3                        unnecessary!
FC1FC0 362F0004               move.w   4(A7),D3                     Number of characters minus 1 
FC1FC4 246F0006               move.l   6(A7),A2                     Address of the string
FC1FC8 121A                   move.b   (A2)+,D1                     Get byte
FC1FCA 61DC                   bsr      $FC1FA8                      Send to keyboard
FC1FCC 51CBFFFA               dbra     D3,$FC1FC8                   Next byte
FC1FD0 4E75                   rts                                   

*****************************************************************   constat, keybaord input status 
FC1FD2 41ED0DB0               lea      $DB0(A5),A0                  iorec for keyboard
FC1FD6 70FF                   moveq.l  #-1,D0                       Default for OK
FC1FD8 45E80006               lea      6(A0),A2                     Head index
FC1FDC 47E80008               lea      8(A0),A3                     Tail index
FC1FE0 B54B                   cmpm.w   (A3)+,(A2)+                  Buffer empty?
FC1FE2 6602                   bne      $FC1FE6                      NO, OF
FC1FE4 7000                   moveq.l  #0,D0                        No characters there
FC1FE6 4E75                   rts                                   

*****************************************************************   conin, get character from keyboard
FC1FE8 61E8                   bsr      $FC1FD2                      constat, key pressed?
FC1FEA 4A40                   tst.w    D0                           
FC1FEC 67FA                   beq      $FC1FE8                      No, wait
FC1FEE 40E7                   move.w   SR,-(A7)                     Save status
FC1FF0 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts 
FC1FF4 32280006               move.w   6(A0),D1                     Head index
FC1FF8 B2680008               cmp.w    8(A0),D1                     Compare with tail index 
FC1FFC 6716                   beq      $FC2014                      Buffer empty?
FC1FFE 5841                   addq.w   #4,D1                        Increment head index
FC2000 B2680004               cmp.w    4(A0),D1                     Greater or equal to buffer size? 
FC2004 6502                   bcs      $FC2008                      No
FC2006 7200                   moveq.l  #0,D1                        Buffer point back to start 
FC2008 22680000               move.l   (A0),A1                      Buffer address
FC200C 20311000               move.l   0(A1,D1.w),D0                Get character ©
FC2010 31410006               move.w   D1,6(A0)                     Save new head index
FC2014 46DF                   move.w   (A7)+,SR                     Get status
FC2016 4E75                   rts

*****************************************************************   conoutst, console output status
FC2018 70FF                   moveq.l  #-1,D0                       Status always OK
FC201A 4E75                   rts

*****************************************************************   ringbel, tone after CTRL G 
FC201C 082D00020484           btst     #2,$484(A5)                  conterm, sound enabled ? 
FC2022 670E                   beq      $FC2032                      No
FC2024 2B7C00FC30760E44       move.l   #$FC3076,$E44(A5)            Pointer to sound table for ell 
FC202C 1B7C00000E48           move.b   #0,$E48(A5)                  Start sound timer
FC2032 4E75                   rts

*****************************************************************   Keyboard table, unshifted 
FC2034 001B313233343536       dc.b     $00,esc,'1','2','3','4','5','6'
FC203C 373839309E270809       dc.b     '7','8','9','0','₧',''',bs, tab
FC2044 71776572747A7569       dc.b     'q','w','e','r','t','z','u','i'
FC204C 6F70812B0D006173       dc.b     'o','p','ü','+',cr, $00,'a','s'
FC2054 646667686A6B6C94       dc.b     'd','f','g','h','j','k','l','ö'
FC205C 8423007E79786376       dc.b     'ä','#',$00,'~','y','x','c','v'
FC2064 626E6D2C2E2D0000       dc.b     'b','n','m',',','.','-',$00,$00
FC206C 0020000000000000       dc.b     $00,' ',$00,$00,$00,$00,$00,$00
FC2074 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00
FC207C 00002D0000002B00       dc.b     $00,$00,'-',$00,$00,$00,'+',$00
FC2084 0000007F00000000       dc.b     $00,$00,$00,del,$00,$00,$00,$00 
FC208C 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00
FC2094 3C000028292F2A37       dc.b     '<',$00,$00,'(',')','/','*','7'
FC209C 3839343536313233       dc.b     '8','9','4','5','6','1','2','3'
FC20A4 302E0D0000000000       dc.b     '0','.',cr, $00,$00,$00,$00,$00
FC20AC 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00

*****************************************************************   Keyboard table, shifted
FC20B4 001B2122DD242526       dc.b     $00,esc,'!','"','>','$','%','&'
FC20BC 2F28293D3F600809       dc.b     '/','(',')','=','?','°',bs, tab
FC20C4 51574552545A5549       dc.b     'Q','W','E','R','T','Z','U','I'
FC20CC 4F509A2A0D004153       dc.b     'O','P','Ü','*',cr, %00,'A','S'
FC20D4 444647484A4B4C99       dc.b     'D','F','G','H','J','K','L','Ö'
FC20DC 8E5E007C59584356       dc.b     'Ä',^',$00','|','Y','X','C','V'
FC20E4 424E4D3B3A5F0000       dc.b     'B','N','M',';',':','_',$00,$00
FC20EC 0020000000000000       dc.b     $00,' ',$00,$00,$00,$00,$00,$00 
FC20F4 0000000000000037       dc.b     $00,$00,$00,$00,$00,$00,$00,'7'
FC20FC 38002D3400362B00       dc.b     '8',$00,'-','4',$00,'6','+',$00
FC2104 3200307F00000000       dc.b     '2',$00,'0',del,$00,$00,$00,$00 
FC210C 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00 
FC2114 3E000028292F2A37       dc.b     '>',$00,$00,'(',')','/','*','7'   (DP) book had .'7'
FC211C 3839343536313233       dc.b     '8','9','4','5','6','1','2','3'
FC2124 302E0D0000000000       dc.b     '0','.',cr, $00,$00,$00,$00,$00 
FC212C 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00 
*****************************************************************   Keyboard table, Caps lock
FC2134 001B313233343536       dc.b     $00,esc,'1','2','3','4','5','6'
FC213C 373839309E270809       dc.b     '7','8','9','0','₧',''',bs, tab
FC2144 51574552545A5549       dc.b     'Q','W','E','R','T','Z','U','I'
FC214C 4F509A2B0D004153       dc.b     'O','P','Ü','+',cr, $00,'A','S'
FC2154 444647484A4B4C99       dc.b     'D','F','G','H','J','K','L','Ö'
FC215C 8E23007E59584356       dc.b     'Ä','#',$00,'~','Y','X','C','V'
FC2164 424E4D2C2E2D0000       dc.b     'B','N','M',',','.','-',$00,$00 
FC216C 0020000000000000       dc.b     $00,' ',$00,$00,$00,$00,$00,$00 
FC2174 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00 
FC217C 00002D0000002B00       dc.b     $00,$00,'-',$00,$00,$00,'+',$00 
FC2184 0000007F00000000       dc.b     $00,$00,$00,del,$00,$00,$00,$00 
FC218C 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00 
FC2194 3C000028292F2A37       dc.b     '<',$00,$00,'(',')','/','*','7'
FC219C 3839343536313233       dc.b     '8','9','4','5','6','1','2','3'
FC21A4 302E0D0000000000       dc.b     '0','.',$00,$00,$00,$00,$00,$00 
FC21AC 0000000000000000       dc.b     $00,$00,$00,$00,$00,$00,$00,$00 

*****************************************************************   initmfp, initialize MFP 68901 
FC21B4 41F9FFFFFA01           lea      $FFFFFA01,A0                 Address of mfp
FC21BA 7000                   moveq.l  #0,D0                        Initialize register with zero
FC21BC 01C80000               movep.l  D0,0(A0)                     gpip to iera 
FC21C0 01C80008               movep.l  D0,8(A0)                     ierb to isra
FC21C4 01C80010               movep.l  D0,16(A0)                    isrb to vr
FC21C8 117C00480016           move.b   #$48,22(A0)                  MFP non-autovector number to $40, set S-bit
FC21CE 3B7C11110E42           move.w   #$1111,$E42(A5)              Timer C bit map to every 4th IRQ
FC21D4 3B7C00140442           move.w   #$14,$442(A5)                _timer_ms to 20 ms
FC21DA 7002                   moveq.l  #2,D0                        Select timer C 
FC21DC 7250                   moveq.l  #80,D1                       /64 for 200 Hz
FC21DE 343C00C0               move.w   #$C0,D2                      192
FC21E2 61000182               bsr      $FC2366                      Initialize timer and interrupt vector 
FC21E6 45F900FC2F78           lea      $FC2F78,A2                   Timer C interrupt routine
FC21EC 7005                   moveq.l  #5,D0                        Timer C interrupt number
FC21EE 6100022C               bsr      $FC241C                      initint, initialize interrupt
FC21F2 7003                   moveq.l  #3,D0                        Select timer D
FC21F4 7201                   moveq.l  #1,D1                        /4 for 9600 baud
FC21F6 7402                   moveq.l  #2,D2                        9600 baud 
FC21F8 6100016C               bsr      $FC2366                      Initialize timer and interrupt vector
FC21FC 203C00980101           move.l   #$980101,D0                  $00, $98, $01, $01
FC2202 01C80026               movep.l  D0,$26(A0)                   to scr, ucr, rsr, tsr
FC2206 61000B84               bsr      $FC2D8C                      DTR on
FC220A 61000B78               bsr      $FC2D84                      RTS on
FC220E 41ED0D8E               lea      $D8E(A5),A0                  Pointer to iorec for RS 232 
FC2212 43F900FC2334           lea      $FC2334,A1                   Start data for iorec
FC2218 7021                   moveq.l  #33,D0                       34 bytes
FC221A 610000F0               bsr      $FC230C                      Copy to RAM
FC221E 41ED0DBE               lea      $DBE(A5),A0                  Pointer to iorec for MIDI
FC2222 43F900FC2326           lea      $FC2326,A1                   Start data for iorec
FC2228 700D                   moveq.l  #13,D0                       14 bytes
FC222A 610000E0               bsr      $FC230C                      Copy to RAM
FC222E 203C00FC288E           move.l   #$FC288E,D0                  Keyboard and MIDI error vector 
FC2234 2B400DD0               move.l   D0,$DD0(A5)                  Pointer to keyboard error routine 
FC2238 2B400DD4               move.l   D0,$DD4(A5)                  Pointer to MIDI error routine 
FC223C 2B7C00FC2CE20DCC       move.l   #$FC2CE2,$DCC(A5)            sysmidi vector | 
FC2244 2B7C00FC284A0DE8       move.l   #$FC284A,$DE8(A5)            midisys vector
FC224C 2B7C00FC285A0DEC       move.l   #$FC285A,$DEC(A5)            ikbdsys vector
FC2254 13FC0003FFFFFC04       move.b   #3,$FFFFFC04                 MIDI ACIA control, master reset 
FC225C 13FC0095FFFFFC04       move.b   #$95,$FFFFFC04               /16, 8 Bit, 1 stop bit, no parity 
FC2264 1B7C00070484           move.b   #7,$484(A5)                  conterm, keyclick, repeat und bell enable 
FC226A 2B7C00FC1D120DE0       move.l   #$FC1D12,$DE0(A5)            Jdostime, time vector
FC2272 203C00FC230A           move.l   #$FC230A,D0                  Pointer to rts
FC2278 2B400DD8               move.l   D0,$DD8(A5)                  statvec, IKBD status package 
FC227C 2B400DDC               move.l   D0,$DDC(A5)                  mousevec, mouse action
FC2280 2B400DE4               move.l   D0,$DE4(A5)                  joyvec, joystick action
FC2284 7000                   moveq.l  #0,D0                        Clear sound variables
FC2286 2B400E44               move.l   D0,$E44(A5)                  Sound pointer
FC228A 1B400E48               move.b   D0,$E48(A5)                  Delay timer
FC228E 1B400E49               move.b   D0,$E49(A5)                  Temp value
FC2292 2B400E3E               move.l   D0,$E3E(A5)                  Printer timeout
FC2296 6100FC70               bsr      $FC1F08                      Strobe to high
FC229A 1B7C000F0E3C           move.b   #$F,$E3C(A5)                 Keyboard delay 1
FC22A0 1B7C00020E3D           move.b   #2,$E3D(A5)                  Keyboard delay 2
FC22A6 41ED0DB0               lea      $DB0(A5),A0                  Pointer to iorec keyboard
FC22AA 43F900FC2318           lea      $FC2318,A1                   Start data for iorec
FC22B0 700D                   moveq.l  #13,D0                       14 bytes
FC22B2 6158                   bsr      $FC230C                      Copy to RAM
FC22B4 61000C58               bsr      $FC2F0E                      Pointer to BIOS keyboard table 
FC22B8 13FC0003FFFFFC00       move.b   #3,$FFFFFC00                 Keyboard ACIA control, master reset 
FC22C0 13FC0096FFFFFC00       move.b   #$96,$FFFFFC00               /64, 8 Bit, 1 stop bit, no parity 
FC22C8 267C00FC2356           move.l   #$FC2356,A3                  Pointer to MFP interrupt vectors 
FC22CE 7203                   moveq.l  #3,D1                        Initialize 4 vectors
FC22D0 2401                   move.l   D1,D2                        
FC22D2 2001                   move.l   D1,D0                        Interrupt number 
FC22D4 06000009               add.b    #9,D0                        plus offset
FC22D8 E582                   asl.l    #2,D2                        
FC22DA 24732000               move.l   0(A3,D2.w),A2                Get vector from table 
FC22DE 6100013C               bsr      $FC241C                      initint, install interrupt 
FC22E2 51C9FFEC               dbra     D1,$FC22D0                   Next vector
FC22E6 45F900FC281C           lea      $FC281C,A2                   MIDI and keyboard vector 
FC22EC 7006                   moveq.l  #6,D0                        Vector number 6
FC22EE 6100012C               bsr      $FC241C                      initint, install interrupt
FC22F2 45F900FC26B2           lea      $FC26B2,A2                   CTS interrupt routine 
FC22F8 7002                   moveq.l  #2,D0                        Vector number 2
FC22FA 61000120               bsr      $FC241C                      initint, install interrupt 
FC22FE 247C00FC2314           move.l   #$FC2314,A2                  Pointer to init data for IKBD 
FC2304 7603                   moveq.l  #3,D3                        4 bytes
FC2306 6100FCC0               bsr      $FC1FC8                      Send string to IKBD
FC230A 4E75                   rts                                   

FC230C 10D9                   move.b   (A1)+,(A0)+                  Block move 
FC230E 51C8FFFC               dbra     D0,$FC230C                   Next byte
FC2312 4E75                   rts                                   

*****************************************************************   
FC2314 8001121A               dc.b     $80,$01,$12,51A              Reset Keyboard, disable mouse + joystick

*****************************************************************   iorec for keyboard 
FC2318 00000C0E               dc.l     $C0E                         Buffer address 
FC231C 0100                   dc.w     $100                         Buffer size
FC231E 0000                   dc.w     0                            Head index
FC2320 0000                   dc.w     0                            Tail index 
FC2322 0040                   dc.w     $40                          Low-water mark 
FC2324 00C0                   dc.w     $C0                          High-water mark

*****************************************************************   1orec for MIDI 
FC2326 00000D0E               dc.l     $D0E                         Buffer address 
FC232A 0080                   dc.w     $80                          Buffer size 
FC232C 0000                   dc.w     0                            Head index
FC232E 0000                   dc.w     0                            Tail index 
FC2330 0020                   dc.w     $20                          Low-water mark 
FC2332 0060                   dc.w     $60                          High-water mark

*****************************************************************   torec for RS 232 input
FC2334 00000A0E               dc.l     $A0E                         Buffer address 
FC2338 0100                   dc.w     $100                         Buffer size 
FC233A 0000                   dc.w     0                            Head index 
FC233C 0000                   dc.w     0                            Tail index 
FC233E 0040                   dc.w     $40                          Low-water mark 
FC2340 00C0                   dc.w     $C0                          High-water mark

*****************************************************************   iorec for RS 232 output
FC2342 00000B0E               dc.l     $B0E                         Buffer address 
FC2346 0100                   dc.w     $100                         Buffer size 
FC2348 0000                   dc.w     0                            Head index 
FC234A 0000                   dc.w     0                            Tail index 
FC234C 0040                   dc.w     $40                          Low-water mark 
FC234E 00CO                   dc.w     $C0                          High-water mark
FC2350 00                     dc.b     0                            rsrbyte, receiver status
FC2351 00                     dc.b     0                            tsrbyte, transmitter status 
FC2352 00                     dc.b     0                            rxoff
FC2353 00                     dc.b     0                            txoff
FC2354 01                     dc.b     1                            rsmode, XON/XOFF mode 
FC2355 00                     dc.b     0                            filler

*****************************************************************   Interrupt vectors for MFP 
FC2356 00FC2718               dc.l     $FC2718                      #9, transmitter error
FC235A 00FC2666               dc.l     $FC2666                      #10, transmitter interrupt 
FC235E 00FC26FA               dc.l     $FC26FA                      #11, receiver error
FC2362 00FC2596               dc.l     $FC2596                      #12, receiver interrupt

*****************************************************************   setimer, initialize timer in MFP
FC2366 48E7F8F0               movem.l  D0-D4/A0-A3,-(A7)            Save registers
FC236A 207CFFFFFA01           move.l   #$FFFFFA01,A0                Address of MFP
FC2370 267C00FC23FA           move.l   #$FC23FA,A3                  Timer interrupt mask bit
FC2376 247C00FC23FE           move.l   #$FC23FE,A2                  
FC237C 615A                   bsr      $FC23D8                      mskreg 
FC237E 267C00FC23EE           move.l   #$FC23EE,A3                  Timer interrupt enable bit
FC2384 247C00FC23FE           move.l   #$FC23FE,A2                  
FC238A 614C                   bsr      $FC23D8                      mskreg 
FC238C 267C00FC23F2           move.l   #$FC23F2,A3                  Timer interrupt pending bit
FC2392 247C00FC23FE           move.l   #$FC23FE,A2                  
FC2398 613E                   bsr      $FC23D8                      mskreg 
FC239A 267C00FC23F6           move.l   #$FC23F6,A3                  Timer interrupt in-service bit
FC23A0 247C00FC23FE           move.l   #$FC23FE,A2                  
FC23A6 6130                   bsr      $FC23D8                      mskreg 
FC23A8 267C00FC2402           move.l   #$FC2402,A3                  Timer control bit
FC23AE 247C00FC2406           move.l   #$FC2406,A2                  
FC23B4 6122                   bsr      $FC23D8                      mskreg 
FC23B6 C749                   exg      A3,A1                        Save A3 
FC23B8 47F900FC240A           lea      $FC240A,A3                   Address of timer data register
FC23BE 7600                   moveq.l  #0,D3
FC23C0 16330000               move.b   0(A3,D0.w),D3                Get register number
FC23C4 11823000               move.b   D2,0(A0,D3.w)                Write data in MFP
FC23C8 B4303000               cmp.b    0(A0,D3.w),D2                and read
FC23CC 66F6                   bne      $FC23C4                      until match
FC23CE C749                   exg      A3,A1                        Restore A3
FC23D0 8313                   or.b     D1,(A3)                      Mask timer control register 
FC23D2 4CDF0F1F               movem.l  (A7)+,D0-D4/A0-A3            Restore registers
FC23D6 4E75                   rts                                   

*****************************************************************   mskreg
FC23D8 6106                   bsr      $FC23E0                      getmask
FC23DA 1612                   move.b   (A2),D3                      Load mask
FC23DC C713                   and.b    D3,(A3)                      and clear bit(s)
FC23DE 4E75                   rts                                   

*****************************************************************   getmask
FC23E0 7600                   moveq.l  #0,D3                        
FC23E2 D6C0                   add.w    D0,A3                        Base plus register number 
FC23E4 1613                   move.b   (A3),D3                      yields address offset in MFP
FC23E6 D688                   add.l    A0,D3                        plus address of MFP
FC23E8 2643                   move.l   D3,A3                        to A3
FC23EA D4C0                   add.w    D0,A2                        Pointer to the mask
FC23EC 4E75                   rts                                   

*****************************************************************   MFP register numbers
FC23EE 06060808               dc.b     6,6,8,8                      iera, iera, ierb, ierb 
FC23F2 0A0A0C0C               dc.b     10,10,12,12                  ipra, ipra, iprb, iprb 
FC23F6 0E0E1010               dc.b     14,14,16,16                  isra, isra, isrb, isrb 
FC23FA 12121414               dc.b     18,18,20,20                  imra, imra, imrb, imrb

*****************************************************************   Masks for MFP registers
FC23FE DFFEDFEF               dc.b     $DF,$FE,$DF,$EF              Clear bits 5, 0, 5, 0
FC2402 181A1C1C               dc.b     $18,$1A,$1C,$1C              Set bits 3+4,, bits 1,3+4, bits 2-4, bits 2-4
FC2406 00008FF8               dc.b     0,0,$8F,$F8                  none, none, clear bits 5-7, bits 0-2
FC240A 1E202224               dc.b     $1E,$20,$22,$24              Set bits 2-4, bits 5, bits 1+5, bits 2+5

*****************************************************************   mfpint, set MFP interrupt vector
FC240E 302F0004               move.w   4(A7),D0                     Interrupt number 
FC2412 246F0006               move.l   6(A7),A2                     Interrupt vector 
FC2416 02800000000F           and.l    #15,D0                       Number 0-15, long word

*****************************************************************   initint, set MFP interrupt vector
FC241C 48E7E0E0               movem.l  D0-D2/A0-A2,-(A7)            Save registers 
FC2420 6120                   bsr      $FC2442                      Disable interrupts 
FC2422 2400                   move.l   D0,D2                        Vector number
FC2424 E542                   asl.w    #2,D2                        As index for long word 
FC2426 068200000100           add.l    #$100,D2                     Plus base address of the MFP vectors
FC242C 2242                   move.l   D2,A1                        Vector address 
FC242E 228A                   move.l   A2,(A1)                      Set new vector 
FC2430 614A                   bsr      $FC247C                      Enable interrupts 
FC2432 4CDF0707               movem.l  (A7)+,D0-D2/A0-A2            Restore registers
FC2436 4E75                   rts                                   

*****************************************************************   disint, disable MFP interrupt
FC2438 302F0004               move.w   4(A7),D0                     Get interrupt number 
FC243C 02800000000F           and.l    #15,D0                       as long word index 
FC2442 48E7C0C0               movem.l  D0-D1/A0-A1,-(A7)            Save registers 
FC2446 41F9FFFFFA01           lea      $FFFFFA01,A0                 Address of mfp 
FC244C 43E80012               lea      18(A0),A1                    Address of imra
FC2450 614A                   bsr      $FC249C                      Calculate bit number to clear
FC2452 0391                   bclr     D1,(A1)                      And clear bit 
FC2454 43E80006               lea      6(A0),A1                     Address of iera
FC2458 6142                   bsr      $FC249C                      Calculate bit number to clear
FC245A 0391                   bclr     D1,(A1)                      And clear bit 
FC245C 43E8000A               lea      10(A0),A1                    Address of ipra 
FC2460 613A                   bsr      $FC249C                      Calculate bit number to clear
FC2462 0391                   bclr     D1,(A1)                      And clear bit 
FC2464 43E8000E               lea      14(A0),A1                    Address of isra 
FC2468 6132                   bsr      $FC249C                      Calculate bit number to clear
FC246A 0391                   bclr     D1,(A1)                      and clear bit 
FC246C 4CDF0303               movem.l  (A7)+,D0-D1/A0-A1            Restore registers
FC2470 4E75                   rts                                   

*****************************************************************   jenabint, enable MFP interrupt
FC2472 302F0004               move.w   4(A7),D0                     Vector number
FC2476 02800000000F           and.l    #15,D0                       as long word index 
FC247C 48E7C0C0               movem.l  D0-D1/A0-Al,-(A7)            Save registers 
FC2480 41F9FFFFFA01           lea      $FFFFFA01,A0                 Address of the MFP 
FC2486 43E80006               lea      6(A0),A1                     Address of iera 
FC248A 6110                   bsr      $FC249C                      Calculate bit number to set
FC248C 03D1                   bset     D1,(A1)                      and set bit
FC248E 43E80012               lea      18(A0),A1                    Address of imra 
FC2492 6108                   bsr      $FC249C                      Calculate bit number to set
FC2494 03D1                   bset     D1,(A1)                      and set bit
FC2496 4CDF0303               movem.l  (A7)+,D0-D1/A0-A1            Restore registers
FC249A 4E75                   rts                                   

*****************************************************************   bselect, determine bit and register number
FC249C 1200                   move.b   D0,D1                        Save interrupt number 
FC249E 0C000008               cmp.b    #8,D0                        Greater than 8 ?
FC24A2 6D02                   blt      $FC24A6                      No
FC24A4 5141                   subq.w   #8,D1                        Else subtract offset 
FC24A6 0C000008               cmp.b    #8,D0                        Greater than 8 ?
FC24AA 6C02                   bge      $FC24AE                      Yes
FC24AC 5449                   addq.w   #2,A1                        Pointer from A to B register
FC24AE 4E75                   rts                                   

*****************************************************************   rs232ptr
FC24B0 41F900000D8E           lea      $D8E,A0                      Pointer to RS 232 iorec 
FC24B6 43F9FFFFFA01           lea      $FFFFFA01,A1                 Address of the MFP
FC24BC 4E75                   rts                                   

*****************************************************************   rs232ibuf, determine buffer contents
FC24BE 34280008               move.w   8(A0),D2                     Tail index
FC24C2 36280006               move.w   6(A0),D3                     Head index
FC24C6 B443                   cmp.w    D3,D2                        Head > tail ?
FC24C8 6204                   bhi      $FC24CE                      No
FC24CA D4680004               add.w    4(A0),D2                     Add buffer size
FC24CE 9443                   sub.w    D3,D2                        Determine buffer contents
FC24D0 4E75                   rts                                   

*****************************************************************   rtschk
FC24D2 082800010020           btst     #1,32(A0)                    RTS/CTS mode ? 
FC24D8 6704                   beq      $FC24DE                      No
FC24DA 610008A8               bsr      $FC2D84                      rtson
FC24DE 4E75                   rts                                   

*****************************************************************   rs232put, RS 232 output
FC24E0 40E7                   move.w   SR, -(A7)                    Save status
FC24E2 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts
FC24E6 61C8                   bsr      $FC24B0                      rs232ptr, get RS 232 butter pointer 
FC24E8 082800000020           btst     #0,32(A0)                    XON/XOFF mode?
FC24EE 6706                   beq      $FC24F6                      No
FC24F0 4A28001F               tst.b    31(A0)                       XON active ?
FC24F4 6618                   bne      $FC250E                      Yes
FC24F6 08290007002C           btst     #7,44(A1)                    Is MFP still sending ?
FC24FC 6710                   beq      $FC250E                      Yes
FC24FE 34280014               move.w   20(A0),D2                    Head index
FC2502 B4680016               cmp.w    22(A0),D2                    Compare with tail index 
FC2506 6606                   bne      $FC250E                      Characters still in buffer
FC2508 1341002E               move.b   D1,46(A1)                    Byte into MFP transmitter register
FC250C 601A                   bra      $FC2528                      
FC250E 34280016               move.w   22(A0),D2                    Tail index
FC2512 610002FC               bsr      $FC2810                      Test for wrap arround 
FC2516 B4680014               cmp.w    20(A0),D2                    Compare with head index 
FC251A 6716                   beq      $FC2532                      Buffer full?
FC251C 2268000E               move.l   14(A0),A1                    Pointer to send buffer 
FC2520 13812000               move.b   D1,0(A1,D2.w)                Write byte in buffer 
FC2524 31420016               move.w   D2,22(A0)                    Save new tail index 
FC2528 61A8                   bsr      $FC24D2                      rtschk, set RTS ? 
FC252A 46DF                   move.w   (A7)+,SR                     Restore status
FC252C 023C00FE               and.b    #$FE,SR                      OK, clear carry flag
FC2530 4E75                   rts                                   

FC2532 619E                   bsr      $FC24D2                      rtschk, set RTS? 
FC2534 46DF                   move.w   (A7)+,SR                     Restore status 
FC2536 003C0001               or.b     #1,SR                        No output, set carry flag
FC253A 4E75                   rts                                   

*****************************************************************   rs232get, RS 232 input
FC253C 40E7                   move.w   SR,-(A7)                     Save status
FC253E 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts 
FC2542 6100FF6C               bsr      $FC24B0                      rs232ptr, get RS 232 pointer 
FC2546 32280006               move.w   6(A0),D1                     Head index
FC254A B2680008               cmp.w    8(A0),D1                     Compare with tail index 
FC254E 671A                   beq      $FC256A                      Receiver buffer empty?
FC2550 610002B2               bsr      $FC2804                      Test for wrap arround
FC2554 22680000               move.l   (A0),Al                      Get buffer address
FC2558 7000                   moveq.l  #0,D0                        
FC255A 10311000               move.b   0(A1,D1.w),D0                Get character from buffer
FC255E 31410006               move.w   D1,6(A0)                     Save new head index
FC2562 46DF                   move.w   (A7)+,SR                     Restore status 
FC2564 023C00FE               and.b    #$FE,SR                      Character there, clear carry flag
FC2568 6006                   bra      $FC2570                      
FC256A 46DF                   move.w   (A7)+,SR                     Restore status
FC256C 003C0001               or.b     #1,SR                        No character, set carry flag
FC2570 082800000020           btst     #0,32(A0)                    XON/XOFF mode?
FC2576 671C                   beq      $FC2594                      No 
FC2578 4A28001E               tst.b    30(A0)                       XON active ? 
FC257C 6716                   beq      $FC2594                      No
FC257E 6100FF3E               bsr      $FC24BE                      Get input buffer length 
FC2582 B468000A               cmp.w    10(A0),D2                    Equals low-water mark?
FC2586 660C                   bne      $FC2594                      No 
FC2588 123C0011               move.b   #$11,D1                      XON 
FC258C 6100FF52               bsr      $FC24E0                      Send
FC2590 4228001E               clr.b    30(A0)                       Clear XON flag
FC2594 4E75                   rts                                   

*****************************************************************   rcvint, RS 232 receiver interrupt
FC2596 48E7F0E0               movem.l  D0-D3/A0-A2,-(A7)            Save registers
FC259A 6100FF14               bsr      $FC24B0                      rs232ptr, get RS 232 pointer 
FC259E 1169002A001C           move.b   42(A1),28(A0)                Save receiver status register
FC25A4 08280007001C           btst     #7,28(A0)                    Interrupt through receiver buffer full ?
FC25AA 670000AE               beq      $FC265A                      No, ignore interrupt
FC25AE 082800010020           btst     #1,32(A0)                    RTS/CTS mode?
FC25B4 6704                   beq      $FC25BA                      No 
FC25B6 610007C8               bsr      $FC2D80                      rtsoff
FC25BA 1029002E               move.b   46(A1),D0                    Read received byte
FC25BE 082800010020           btst     #1,32(A0)                    RTS/CTS mode?
FC25C4 6640                   bne      $FC2606                      Yes
FC25C6 082800000020           btst     #0,32(A0)                    XON/XOFF mode?
FC25CC 6738                   beq      $FC2606                      No
FC25CE 0C000011               cmp.b    #17,D0                       XON received?
FC25D2 6624                   bne      $FC25F8                      No
FC25D4 117C0000001F           move.b   #0,31(A0)                    Clear XOFF flag 
FC25DA 34280014               move.w   20(A0),D2                    Head index sender
FC25DE B4680016               cmp.w    22(A0),D2                    Compare with tail index sender
FC25E2 6776                   beq      $FC265A                      Send buffer empty? 
FC25E4 6100022A               bsr      $FC2810                      Test for wrap around 
FC25E8 2468000E               move.l   14(A0),A2                    Pointer to send buffer
FC25EC 13722000002E           move.b   0(A2,D2.w),46(A1)            Byte in MFP transmitter register
FC25F2 31420014               move.w   D2,20(A0)                    Save new head index
FC25F6 6062                   bra      $FC265A                      
FC25F8 0C000013               cmp.b    #19,D0                       XOFF received ?
FC25FC 6608                   bne      $FC2606                      No 
FC25FE 117C00FF001F           move.b   #$FF,31(A0)                  Set XOFF flag
FC2604 6054                   bra      $FC265A                      
FC2606 32280008               move.w   8(A0),D1                     Tail index
FC260A 610001F8               bsr      $FC2804                      Test for wrap arround 
FC260E B2680006               cmp.w    6(A0),D1                     Receiver buffer full?
FC2612 6746                   beq      $FC265A                      Yes, ignore characters 
FC2614 24680000               move.l   (A0),A2                      Pointer to input buffer 
FC2618 15801000               move.b   D0,0(A2,D1.w)                Received charcter in buffer 
FC261C 31410008               move.w   D1,8(A0)                     Save new tail index
FC2620 6100FE9C               bsr      $FC24BE                      Get input buffer length used 
FC2624 B468000C               cmp.w    12(A0),D2                    Same as high-water mark?
FC2628 6624                   bne      $FC264E                      No
FC262A 082800010020           btst     #1,32(A0)                    RTS/CTS mode?
FC2630 6628                   bne      $FC265A                      No
FC2632 082800000020           btst     #0,32(A0)                    XON/XOFF mode?
FC2638 6714                   beq      $FC264E                      No
FC263A 4A28001E               tst.b    30(A0)                       XOFF already sent?
FC263E 660E                   bne      $FC264E                      Yes
FC2640 117C00FF001E           move.b   #$FF,30(A0)                  Flag for setting XOFF
FC2646 123C0013               move.b   #$13,D1                      XOFF
FC264A 6100FE94               bsr      $FC24E0                      send
FC264E 082800010020           btst     #1,32(A0)                    RTS/CTS mode?
FC2654 6704                   beq      $FC265A                      No
FC2656 6100072C               bsr      $FC2D84                      rtson
FC265A 08A90004000E           bclr     #4,14(A1)                    Clear interrupt service bit 
FC2660 4CDF070F               movem.l  (A7)+,D0-D3/A0-A2            Restore registers
FC2664 4E73                   rte                                   

*****************************************************************   txrint, transmitter buffer empty
FC2666 48E720E0               movem.l  D2/A0-A2,-(A7)               Save registers
FC266A 6100FE44               bsr      $FC24B0                      rs232ptr, get RS 232 pointer 
FC266E 082800010020           btst     #1,32(A0)                    RTS/CTS mode?
FC2674 6630                   bne      $FC26A6                      Yes, then use this interrupt 
FC2676 082800000020           btst     #0,32(A0)                    XON/XOFF mode?
FC267C 6706                   beq      $FC2684                      No
FC267E 4A28001F               tst.b    31(A0)                       XOFF active ?
FC2682 6622                   bne      $FC26A6                      Yes, do nothing
FC2684 1169002C001D           move.b   44(A1),29(A0)                Save transmitter status register
FC268A 34280014               move.w   20(A0),D2                    Head index
FC268E B4680016               cmp.w    22(A0),D2                    Compare with tail index
FC2692 6712                   beq      $FC26A6                      Send buffer empty?
FC2694 6100017A               bsr      $FC2810                      Test for wrap around
FC2698 2468000E               move.l   14(A0),A2                    Pointer to send buffer
FC269C 13722000002E           move.b   0(A2,D2.w),46(A1)            Byte in MFP transmitter register
FC26A2 31420014               move.w   D2,20(A0)                    Save new head index
FC26A6 08A90002000E           bclr     #2,14(A1)                    Clear interrupt service bit 
FC26AC 4CDF0704               movem.l  (A7)+,D2/A0-A2               Restore registers
FC26B0 4E73                   rte                                   

*****************************************************************   ctsint, CTS interript routine 
FC26B2 48E720E0               movem.l  D2/A0-A2,-(A7)               Save registers
FC26B6 6100FDF8               bsr      $FC24B0                      rs232ptr, get RS 232 pointer 
FC26BA 082800010020           btst     #1,32(A0)                    RTS/CTS mode?
FC26C0 672A                   beq      $FC26EC                      No, ignore interrupt
FC26C2 1169002C001D           move.b   44(A1),29(A0)                Save transmitter status 
FC26C8 08280007001D           btst     #7,29(A0)                    Transmitter buffer empty ?
FC26CE 67F8                   beq      $FC26C8                      No, wait (must jump to $FC26C2!) 
FC26D0 34280014               move.w   20(A0),D2                    Head index
FC26D4 B4680016               cmp.w    22(A0),D2                    Compare with tail index
FC26D8 671E                   beq      $FC26F8                      Send buffer empty
FC26DA 61000134               bsr      $FC2810                      Test for wrap around
FC26DE 2468000E               move.l   14(A0),A2                    Pointer to send buffer
FC26E2 13722000002E           move.b   0(A2,D2.w),46(A1)            Byte in MFP transmitter register 
FC26E8 31420014               move.w   D2,20(A0)                    Save new head index
FC26EC 08A900020010           bclr     #2,16(A1)                    Clear interrupt service bit 
FC26F2 4CDF0704               movem.l  (A7)+,D2/A0-A2               Restore registers
FC26F6 4E73                   rte                                   

FC26F8 60F2                   bra      $FC26EC                      Send buffer empty
*****************************************************************   rxerror, RS 232 receiver error 
FC26FA 48E780C0               movem.l  D0/A0-A1,-(A7)               Save registers
FC26FE 6100FDB0               bsr      $FC24B0                      rs232ptr, get RS 232 pointer 
FC2702 1169002A001C           move.b   42(A1),28(A0)                Save receiver status
FC2708 1029002E               move.b   46(A1),D0                    Read data register (clear status)
FC270C 08A90003000E           bclr     #3,14(A1)                    Clear interrupt service bit 
FC2712 4CDF0301               movem.l  (A7)+,D0/A0-A1               Restore registers
FC2716 4E73                   rte                                   

*****************************************************************   txerror, RS 232 send error 
FC2718 48E700C0               movem.l  A0-A1,-(A7)                  Save registers 
FC271C 6100FD92               bsr      $FC24B0                      rs232ptr, get RS 232 pointer
FC2720 1169002C001D           move.b   44(A1),29(A0)                Save transmitter status 
FC2726 08A90001000E           bclr     #1,14(A1)                    Clear interrupt service bit 
FC272C 4CDF0300               movem.l  (A7)+/A0-Al                  Restore registers
FC2730 4E73                   rte                                   

*****************************************************************   get iorec
FC2732 7200                   moveq.l  #0,D1                        
FC2734 322F0004               move.w   4(A7),D1                     Device number
FC2738 40E7                   move.w   SR, -(A7)                    Save status
FC273A 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts 
FC273E 45F900FC274E           lea      $FC274E,A2                   Address of the table
FC2744 E581                   asl.l    #2,D1                        Long access
FC2746 20321800               move.l   0(A2,D1.l),D0                Get pointer to iorec 
FC274A 46DF                   move.w   (A7)+,SR                     Restore status
FC274C 4B75                   rts                                   

*****************************************************************   iorec table 
FC274E 00000D8E               dc.l     $D8E                         RS 232
FC2752 00000DB0               dc.l     $DB0                         IKBD
FC2756 00000DBE               dc.l     $DBE                         MIDI

*****************************************************************   rsconf, contigure RS 222
FC275A 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts 
FC275E 6100FD50               bsr      $FC24B0                      rs232ptr, get RS 232 pointer
FC2762 0F490028               movep.l  $28(A1),D7                   Save ucr, rsr, tsr and scr 
FC2766 4A6F0006               tst.w    6(A7)                        Mode
FC276A 6B0A                   bmi      $FC2776                      Negative, don't reset
FC276C 116F00070020           move.b   7(A7),32(A0)                 Reset rsmode
FC2772 7000                   moveq.l  #0,D0                        
FC2774 7400                   moveq.l  #0,D2                        
FC2776 4A6F0004               tst.w    4(A7)                        Baud rate 
FC277A 6B34                   bmi      $FC27B0                      Negative, don't change
FC277C 7000                   moveq.l  #0,D0                        
FC277E 1340002A               move.b   D0,42(A1)                    Disable receiver
FC2782 1340002C               move.b   D0,44(A1)                    Disable sender
FC2786 322F0004               move.w   4(A7),D1                     Get new baud rate
FC278A 45F900FC27E4           lea      $FC27E4,A2                   Table of timer values, control registers
FC2790 10321000               move.b   0(A2,D1.w),D0                Get value
FC2794 45F900FC27F4           lea      $FC27F4,A2                   Table of timer values, data registers 
FC279A 14321000               move.b   0(A2,D1.w),D2                Get value
FC279E 2200                   move.l   D0,D1                        
FC27A0 7003                   moveq.l  #3,D0                        Pointer to timer D 
FC27A2 6100FBC2               bsr      $FC2366                      Set timer D for new baud rate
FC27A6 7001                   moveq.l  #1,D0                        
FC27A8 1340002A               move.b   D0,42(A1)                    Enable receiver 
FC27AC 1340002C               move.b   D0,44(A1)                    Enable sender 
FC27B0 4A6F0008               tst.w    8(A7)                        Set ucr ?
FC27B4 6B06                   bmi      $FC27BC                      No
FC27B6 136F00090028           move.b   9(A7),40(A1)                 New ucr value 
FC27BC 4A6F000A               tst.w    10(A7)                       Set rsr ?
FC27C0 6B06                   bmi      $FC27C8                      No
FC27C2 136F000B002A           move.b   11(A7),42(A1)                New rsr value 
FC27C8 4A6F000C               tst.w    12(A7)                       Set tsr ?
FC27CC 6B06                   bmi      $FC27D4                      No
FC27CE 136F000D002C           move.b   13(A7),44(A1)                New tsr value 
FC27D4 4A6F000E               tst.w    14(A7)                       Set scr?
FC27D8 6B06                   bmi      $FC27E0                      No
FC27DA 136F000F0026           move.b   15(A7),38(A1)                Set scr
FC27E0 2007                   move.l   D7,D0                        old value for control register
FC27E2 4E75                   rts                                   

*****************************************************************   Timer values for RS 232 baud rate 
FC27E4 0101010101010101       dc.b     1,1,1,1,1,1,1,1              Control register 
FC27EC 0101010101010202       dc.b     1,1,1,1,1,1,2,2              1 = /4, 2 = /10
FC27F4 01020405080A0B10       dc.b     1,2,4,5,8,10,11,16           Data register
FC27FC 204060808FAF4060       dc.b     32,64,96,128,143,175,64,96

*****************************************************************   wrapin, test for wrap around 
FC2804 5241                   addq.w   #1,D1                        Head index + 1
FC2806 B2680004               cmp.w    4(A0),D1                     Equals buffer size?
FC280A 6502                   bcs      $FC280E                      No
FC280C 7200                   moveq.l  #0,D1                        Else begin with zero
FC280E 4E75                   rts                                   

*****************************************************************   wrapout, test for wrap around 
FC2810 5242                   addq.w   #1,D2                        Tail index + 1
FC2812 B4680012               cmp.w    18(A0),D2                    Equals buffer size?
FC2816 6502                   bcs      $FC281A                      No
FC2818 7400                   moveq.l  #0,D2                        Else begin with zero
FC281A 4E75                   rts                                   

*****************************************************************   midikey, keyboard and MIDI interrupt
FC281C 48E7F0F4               movem.l  D0-D3/A0-A3/A5,-(A7)         Save registers
FC2820 4BF900000000           lea      $0,A5                        Clear AS
FC2826 246D0DE8               move.l   $DE8(A5),A2                  mbufrec, MIDI
FC282A 4E92                   jsr      (A2)                         Interrupt from MIDI ACIA ?
FC282C 246D0DEC               move.l   $DEC(A5),A2                  kbufrec, keyboard
FC2830 4E92                   Jsr      (A2)                         Interrupt from keyboard ACIA ?
FC2832 08390004FFFFFA01       btst     #4,$FFFFFA01                 mfp gpip, still an interrupt there? 
FC283A 67EA                   beq      $FC2826                      Yes, process
FC283C 08B90006FFFFFA11       bclr     #6,$FFFFFA11                 Clear interrupt service bit
FC2844 4CDF2F0F               movem.l  (A7)+,D0-D3/A0-A3/A5         Restore registers
FC2848 4E73                   rte                                   

*****************************************************************   midisys, MIDI interrupt 
FC284A 41ED0DBE               lea      $DBE(A5),A0                  iorec for MIDI
FC284E 43F9FFFFFC04           lea      $FFFFFC04,A1                 MIDI ACIA control
FC2854 246D0DD4               move.l   $DD4(A5),A2                  MIDI error routine
FC2858 600E                   bra      $FC2868                      

*****************************************************************   ikbdsys, keyboard interrupt 
FC285A 41ED0DB0               lea      $DBO(A5),A0                  iorec for keyboard 
FC285E 43F9FFFFFC00           lea      $FFFFFC00,A1                 Keyboard ACIA control 
FC2864 246D0DD0               move.l   $DD0(A5),A2                  Keyboard error routine
FC2868 14290000               move.b   (A1),D2                      Get ACIA status
FC286C 08020007               btst     #7,D2                        Interrupt request ?
FC2870 671C                   beq      $FC288E                      No
FC2872 08020000               btst     #0,D2                        Receiver buffer full?
FC2876 670A                   beq      $FC2882                      No 
FC2878 48E720E0               movem.l  D2/A0-A2,-(A7)               Save registers
FC287C 6112                   bsr      $FC2890                      arcvint, get byte 
FC287E 4CDF0704               movem.l  (A7)+,D2/A0-A2               Restore registers 
FC2882 02020020               and.b    #$20,D2                      Clear tested bit
FC2886 6706                   beq      $FC288E                      No error
FC2888 10290002               move.b   2(A1),D0                     Read data again, clear status
FC288C 4ED2                   jmp      (A2)                         Execute error routine
FC288E 4E75                   rts                                   

*****************************************************************   arcvint, get byte from ACIA 
FC2890 10290002               move.b   2(A1),D0                     get data from ACIA
FC2894 B1FC00000DB0           cmp.l    #$DB0,A0                     Keyboard ACIA ?
FC289A 66000440               bne      $FC2CDC                      No, MIDI
FC289E 4A2D0DF0               tst.b    $DF0(A5)                     Keyboard state
FC28A2 6660                   bne      $FC2904                      
FC28A4 0C0000F6               cmp.b    #$F6,D0                      Keypress ? 
FC28A8 65000100               bcs      $FC29AA                      yes
FC28AC 040000F6               sub.b    #$F6,D0                      Subtract offset
FC28B0 0280000000FF           and.l    #$FF,D0
FC28B6 47F900FC28F0           lea      $FC28F0,A3                   Pointer to IKBD code table 
FC28BC 1B7300000DF0           move.b   0(A3,D0.w),$DF0(A5)          Save IKBD
FC28C2 47F900FC28FA           lea      $FC28FA,A3                   Pointer to IKBD length table 
FC28C8 1B7300000DF1           move.b   0(A3,D0.w),$DF1(A5)          IKBD index
FC28CE 064000F6               add.w    #$F6,D0                      Add offset again
FC28D2 0C0000F8               cmp.b    #$F8,D0                      Mouse position record ?
FC28D6 6D0C                   blt      $FC28E4                      No
FC28D8 0C0000FB               cmp.b    #$FB,D0                      Mouse position record ?
FC28DC 6E06                   bgt      $FC28E4                      No
FC28DE 1B400DFE               move.b   D0,$DFE(A5)                  Save mouse position
FC28E2 4E75                   rts                                   
FC28E4 0C0000FD               cmp.b    #$FD,D0                      Joystick record ? 
FC28E8 6D04                   blt      $FC28EE                      No 
FC28EA 1B400E07               move.b   D0,$E07(A5)                  Save joystick data
FC28EE 4E75                   rts                                   

*****************************************************************   IKBD parameters 
FC28F0 01020303030304050607   dc.b     1,2,3,3,3,3,4,5,6,7          Status code for $F6-$FF 
FC28FA 07050202020206020101   dc.b     7,5,2,2,2,2,6,2,1,1          Length-1 for $F6-$FF

*****************************************************************   
FC2904 0C2D00060DF0           cmp.b    #6,$DF0(A5)                  Joystick record ? 
FC290A 64000084               bcc      $FC2990                      Yes 
FC290E 45F900FC2954           lea      $FC2954,A2                   Pointer to IKBD parameter table
FC2914 7400                   moveq.l  #0,D2                        
FC2916 142D0DF0               move.b   $DF0(A5),D2                  Kstate 
FC291A 5302                   subq.b   #1,D2                        1-5 => 0-4 
FC291C E342                   asl.w    #1,D2                        times 2 
FC291E D42D0DF0               add.b    $DF0(A5),D2                  plus once
FC2922 5302                   subq.b   #1,D2                        
FC2924 E542                   asl.w    #2,D2                        
FC2926 20722000               move.l   0(A2,D2.w),A0                IKBD record pointer
FC292A 22722004               move.l   4(A2,D2.w),A1                IKBD index base 
FC292E 24722008               move.l   8(A2,D2.w),A2                IKBD interrupt routine 
FC2932 2452                   move.l   (A2),A2                      Get interrupt vector
FC2934 7400                   moveq.l  #0,D2                        
FC2936 142D0DF1               move.b   $DF1(A5),D2                  Get IKBD index 
FC293A 93C2                   sub.l    D2,A1                        minus base
FC233C 1280                   move.b   D0,(A1)                      
FC293E 532D0DF1               subq.b   #1,$DF1(A5)                  IKBD index minus 1 
FC2942 4A2D0DF1               tst.b    $DF1(A5)                     Test index
FC2946 660A                   bne      $FC2952                      
FC2948 2F08                   move.l   A0,-(A7)                     Pass record pointer 
FC294A 4E92                   jsr      (A2)                         Execute interrupt routine
FC294C 584F                   addq.w   #4,A7                        Correct stack pointer 
FC294E 422D0DF0               clr.b    $DF0(A5)                     Clear IKBD state
FC2952 4E75                   rts                                   

*****************************************************************   Parameter table for IKBD
FC2954 00000DF2               dc.l     $DF2
FCZ958 00000DF9               dc.l     $DF9  
FC295C 00000DD8               dc.l     $DD8  
FC2960 00000DF9               dc.l     $DF9  
FC2964 00000DFE               dc.l     $DFE  
FC2968 00000DDC               dc.l     $DDC  
FC296C 00000DFE               dc.l     $DFE  
FC2970 00000E01               dc.l     $E01  
FC2974 00000DDC               dc.l     $DDC  
FC2978 00000E01               dc.l     $E01  
FC297C 00000E07               dc.l     $E07  
FC2980 00000DE0               dc.l     $DE0  
FC2984 00000E07               dc.l     $E07  
FC2988 00000E09               dc.l     $E09  
FC298C 00000DE4               dc.l     $DE4 

*****************************************************************
FC2990 223C00000E08           move.l   #$E08,D1 
FC2996 D22D0DF0               add.b    $DF0(A5),D1                  Joystick O and 1
FC299A 5D01                   subq.b   #6,D1                        
FC299C 2441                   move.l   D1,A2                        
FC299E 1480                   move.b   D0,(A2)                      
FC29A0 246D0DE4               move.l   $DE4(A5),A2                  Joystick interrupt routine 
FC29A4 41ED0E07               lea      $E07(A5),A0                  Address of joystick data
FC29A8 609E                   bra      $FC2948                      

*****************************************************************   Process keypress
FC29AA 122D0E1B               move.b   $E1B(A5),D1                  Shift status
FC29AE 0C00002A               cmp.b    #$2A,D0                      Left shift key pressed?
FC29B2 6606                   bne      $FC29BA                      No
FC29B4 08C10001               bset     #1,D1                        Set bit for left shift key
FC29B8 6074                   bra      $FC2A2E                      
FC29BA 0C0000AA               cmp.b    #$AA,D0                      Left shift key released? 
FC29BE 6606                   bne      $FC29C6                      No 
FC29C0 08810001               bclr     #1,D1                        Clear bit for left shift key
FC29C4 6068                   bra      $FC2A2E                      
FC29C6 0C000036               cmp.b    #$36,D0                      Right shift key pressed? 
FC29CA 6606                   bne      $FC29D2                      No 
FCZ9CC 08C10000               bset     #0,D1                        Set bit for right shift key
FC29D0 605C                   bra      $FC2A2E                      
FC29D2 0C0000B6               cmp.b    #$B6,D0                      Right shift key released? 
FC29D6 6606                   bne      $FC29DE                      No 
FC29D8 08810000               bclr     #0,D1                        Clear bit for right shift key
FC29DC 6050                   bra      $FC2A2E                      
FC29DE 0C00001D               cmp.b    #$1D,D0                      CTRL key pressed? 
FC29E2 6606                   bne      $FC29EA                      No 
FC29E4 08C10002               bset     #2,D1                        Set bit for CTRL key
FC29E8 6044                   bra      $FC2A2E                      
FC29EA 0C00009D               cmp.b    #$9D,D0                      CTRL key released?
FC29EE 6606                   bne      $FC29F6                      No
FC29F0 08810002               bclr     #2,D1                        Clear bit for CTRL key
FC29F4 6038                   bra      $FC2A2E                      
FC29F6 0C000038               cmp.b    #$38,D0                      ALT key pressed? 
FC29FA 6606                   bne      $FC2A02                      No
FC29FC 08C10003               bset     #3,D1                        Set bit for ALT key
FC2A00 602C                   bra      $FC2A2E                      
FC2A02 0C0000B8               cmp.b    #$B8,D0                      ALT key released? 
FC2A06 6606                   bne      $FC2A0E                      No
FC2A08 08810003               bset     #3,D1                        Clear bit for ALT key
FC2A0C 6020                   bra      $FC2A2E                      
FC2A0E 0C00003A               cmp.b    #$3A,D0                      CAPS LOCK pressed ?
FC2A12 6620                   bne      $FC2A34                      No
FC2A14 082D00000484           btst     #0,$484(A5)                  conterm, key click ?
FC2A1A 670E                   beq      $FC2A2A                      No
FC2A1C 2B7C00FC30940E44       move.l   #$FC3094,$E44(A5)            Address of key click sound table
FC2A24 1B7C00000E48           move.b   #0,$E48(A5)                  Start sound
FC2A2A 08410004               bchg     #4,D1                        Invert CAPS LOCK status 
FC2A2E 1B410E1B               move.b   D1,$E1B(A5)                  Save new shift status
FC2A32 4E75                   rts                                   

FC2A34 08000007               btst     #7,D0                        Was key released? 
FC2A38 662A                   bne      $FC2A64                      Yes 
FC2A3A 4A2D0E39               tst.b    $E39(A5)                     Repeat ? 
FC2A3E 6616                   bne      $FC2A56                      Yes
FC2A40 1B400E39               move.b   D0,$E39(A5)                  Save key code for repeat
FC2A44 1B7900000E3C0E3A       move.b   $E3C,$E3A(A5)                Delay 1 
FC2A4C 1B7900000E3D0E3B       move.b   $E3D,$E3B(A5)                Delay 2
FC2A54 603A                   bra      $FC2A90                      
FC2A56 1B7C00000E3A           move.b   #0,$E3A(A5)                  Clear counter for delay l 
FC2A5C 1B7C00000E3B           move.b   #0,$E3B(A5)                  Clear counter for delay 2
FC2A62 602C                   bra      $FC2A90                      
FC2A64 4A2D0E39               tst.b    $E39(A5)                     Key for repeat? 
FC2A68 670E                   beq      $FC2A78                      No
FC2A6A 7200                   moveq.l  #0,D1                        
FC2A6C 1B410E39               move.b   D1,$E39(A5)                  Clear key code for repeat 
FC2A70 1B410E3A               move.b   D1,$E3A(A5)                  Clear delay l
FC2A74 1B410E3B               move.b   D1,$E3B(A5)                  Clear delay 2
FC2A78 0C0000C7               cmp.b    #$C7,D0                      HOME key released?
FC2A7C 6708                   beq      $FC2A86                      Yes
FC2A7E 0C0000D2               cmp.b    #$D2,D0                      INSERT key released?
FC2A82 66000256               bne      $FC2CDA                      No
FC2A86 082D00030E1B           btst     #3,$E1B(A5)                  ALT key still pressed?
FC2A8C 6700024C               beq      $FC2CDA                      No
FC2A90 082D00000484           btst     #0,$484(A5)                  conterm, key click ?
FC2A96 670E                   beq      $FC2AA6                      No
FC2A98 2B7C00FC30940E44       move.l   #$FC3094,$E44(A5)            Address of sound table for key click 
FC2AA0 1B7C00000E48           move.b   #0,$E48(A5)                  Start sound
FC2AA6 2F08                   move.l   A0,-(A7)                     Save iorec for keyboard
FC2AA8 7200                   moveq.l  #0,D1                        
FC2AAA 1200                   move.b   D0,D1                        Scancode to Dl
FC2AAC 206D0E1C               move.l   $E1C(A5),A0                  Address of the standard keyboard table
FC2AB0 0240007F               and.w    #$7F,D0                      Clear bit for released
FC2AB4 082D00040E1B           btst     #4,$E1B(A5)                  CAPS LOCK active ?
FC2ABA 6704                   beq      $FC2AC0                      No
FC2ABC 206D0E24               move.l   $E24(A5),A0                  Address of CAPS LOCK keyboard table 
FC2AC0 082D00000E1B           btst     #0,$E1B(A5)                  Right shift key pressed?
FC2AC6 6608                   bne      $FC2AD0                      Yes
FC2AC8 082D00010E1B           btst     #1,$E1B(A5)                  Left shift key pressed?
FC2ACE 671A                   beq      $FC2AEA                      No
FC2AD0 0C00003B               cmp.b    #$3B,D0                      Function key ? (F1)
FC2AD4 6510                   bcs      $FC2AE6                      No
FC2AD6 0C000044               cmp.b    #$44,D0                      Function key ? (F10)
FC2ADA 620A                   bhi      $FC2AE6                      No
FC2ADC 06410019               add.w    #$19,D1                      Add offset to GSX standard 
FC2AE0 7000                   moveq.l  #0,D0                        ASCII code equals zero
FC2AE2 600001B2               bra      $FC2C96                      
FC2AE6 206D0E20               move.l   $E20(A5),A0                  Address of the shift keyboard table
FC2AEA 10300000               move.b   0(A0,D0.w),D0                Get ASCII code from table 
FC2AEE 082D00020E1B           btst     #2,$E1B(A5)                  CTRL key table?
FC2AF4 6760                   beq      $FC2B56                      No
FC2AF6 0C00000D               cmp.b    #13,D0                       Carriage return?
FC2AFA 6604                   bne      $FC2B00                      No
FC2AFC 700A                   moveq.l  #10,D0                       Convert to linefeed
FC2AFE 672A                   beq      $FC2B2A                      
FC2B00 0C010047               cmp.b    #$47,D1                      CTRL HOME?
FC2B04 6608                   bne      $FC2B0E                      No
FC2B06 06410030               add.w    #$30,D1                      Add offset to GSX standard
FC2B0A 6000018A               bra      $FC2C96                      
FC2B0E 0C01004B               cmp.b    #$4B,D1                      CTRL cursor left?
FC2B12 6608                   bne      $FC2B1C                      No
FC2B14 7273                   moveq.l  #$73,D1                      GSX standard 
FC2B16 7000                   moveq.l  #0,D0                        ASCII code zero
FC2B18 6000017C               bra      $FC2C96                      
FC2B1C 0C01004D               cmp.b    #$4D,D1                      CTRL cursor right: ?
FC2B20 6608                   bne      $FC2B2A                      No
FC2B22 7274                   moveq.l  #$74,D1                      GSX standard 
FC2B24 7000                   moveq.l  #0,D0                        ASCII code zero
FC2B26 6000016E               bra      $FC2C96                      
FC2B2A 0C000032               cmp.b    #$32,D0                      CTRL M ?
FC2B2E 6606                   bne      $FC2B36                      
FC2B30 7000                   moveq.l  #0,D0                        ASCII code zero
FC2B32 60000162               bra      $FC2C96
FC2B36 0C000036               cmp.b    #$36,D0                      CTRL Shift ?
FC2B3A 6606                   bne      $FC2B42                      
FC2B3C 701E                   moveq.l  #$1E,D0                      ASCI code RS
FC2B3E 60000156               bra      $FC2C96                      
FC2B42 0C00002D               cmp.b    #$2D,D0                      CTRL C ?
FC2B46 6606                   bne      $FC2B4E                      
FC2B48 701F                   moveq.l  #$1F,D0                      ASCII code US
FC2B4A 6000014A               bra      $FC2C96                      
FC2B4E 0240001F               and.w    #$1F,D0                      Convert code to CTRL code
FC2B52 60000142               bra      $FC2C96                      
FC2B56 082D00030E1B           btst     #3,$E1B(A5)                  ALT key pressed?
FC2B5C 67000138               beq      $FC2C96                      No
FC2B60 0C01001A               cmp.b    #26,D1                       Key 'Ü' ?
FC2B64 6618                   bne      $FC2B7E                      No
FC2B66 103C0040               move.b   #$40,D0                      '@'
FC2B6A 142D0E1B               move.b   $E1B(A5),D2                  Shift status
FC2B6E 02020003               and.b    #3,D2                        One of the shift keys pressed?
FC2B72 67000122               beq      $FC2C96                      No
FC2B76 103C005C               move.b   #$5C,D0                      '\'
FC2B7A 6000011A               bra      $FC2C96                      
FC2B7E 0C010027               cmp.b    #39,D1                       Key 'Ö' ?
FC2B82 6618                   bne      $FC2B9C                      
FC2B84 103C005B               move.b   #$5B,D0                      '['
FC2B88 142D0E1B               move.b   $E1B(A5),D2                  Shift status
FC2B8C 02020003               and.b    #3,D2                        One of the shift keys pressed?
FC2B90 67000104               beq      $FC2C96                      No
FC2B94 103C007B               move.b   #$7B,D0                      '{'
FC2B98 600000FC               bra      $FC2C96                      
FC2B9C 0C010028               cmp.b    #40,D1                       Key 'Ä' ?
FC2BA0 6618                   bne      $FC2BBA                      No
FC2BA2 103C005D               move.b   #$5D,D0                      ']'
FC2BA6 142D0E1B               move.b   $E1B(A5),D2                  Shift status
FC2BAA 02020003               and.b    #3,D2                        One of the shift keys pressed? 
FC2BAE 670000E6               beq      $FC2C96                      No
FC2BB2 103C007D               move.b   #$7D,D0                      '}'
FC2BB6 600000DE               bra      $FC2C96                      
FC2BBA 0C010062               cmp.b    #98,D1                       ALT HELP ?
FC2BBE 660A                   bne      $FC2BCA                      No
FC2BC0 5926D04EE              addq.w   #1,$4EE(A5)                  _dumpflg for hardcopy 
FC2BC4 205F                   move.l   (A7)+,A0                     Restore keyboard iorec
FC2BC6 60000112               bra      $FC2CDA                      

FC2BCA 45F900FC2D48           lea      $FC2D48,A2                   Pointer to mouse scancode table
FC2BD0 7403                   moveq.l  #3,D2                        Test four values
FC2BD2 B2322000               cmp.b    0(A2,D2.w),D1                Value found?
FC2BD6 6700012C               beq      $FC2D04                      Yes
FC2BDA 51CAFFF6               dbra     D2,$FC2BD2                   Next value
FC2BDE 0C010048               cmp.b    #$48,D1                      Cursor up?
FC2BE2 661C                   bne      $FC2C00                      No
FC2BE4 123C0000               move.b   #0,D1                        X-offset for cursor up 
FC2BE8 143CFFF8               move.b   #-8,D2                       Y-offset for cursor up
FC2BEC 102D0E1B               move.b   $E1B(A5),D0                  Get shift status
FC2BF0 02000003               and.b    #3,D0                        One of the shift keys pressed? 
FC2BF4 6700012C               beq      $FC2D22                      No
FC2BF8 143CFFFF               move.b   #-1,D2                       Y-offset, only one pixel high
FC2BFC 60000124               bra      $FC2D22                      
FC2C00 0C01004B               cmp.b    #$4B,D1                      Cursor left ?
FC2C04 661C                   bne      $FC2C22                      No
FC2C06 143C0000               move.b   #0,D2                        Y-offset for cursor left
FC2C0A 123CFFF8               move.b   #-8,D1                       X-offset for cursor ieft
FC2C0E 102D0E1B               move.b   $E1B(A5),D0                  Get shift status
FC2C12 02000003               and.b    #3,D0                        One of the shift keys pressed? 
FC2C16 6700010A               beq      $FC2D22                      No
FC2C1A 123CFFFF               move.b   #-1,D1                       X-offset, only one pixel left
FC2C1E 60000102               bra      $FC2D22 
FC2C22 0C01004D               cmp.b    #$4D,D1                      Cursor right ?
FC2C26 661C                   bne      $FC2C44                      No
FC2C28 123C0008               move.b   #8,D1                        X-offset for cursor right 
FC2C2C 143C0000               move.b   #0,D2                        Y-offset for cursor right
FC2C30 102D0E1B               move.b   $E1B(A5),D0                  Get shift status
FC2C34 02000003               and.b    #3,D0                        One of the shift keys pressed?
FC2C38 670000E8               beq      $FC2D22                      No
FC2C3C 123C0001               move.b   #1,D1                        X-offset, only one pixel right
FC2C40 600000E0               bra      $FC2D22                      
FC2C44 0C010050               cmp.b    #$50,D1                      Cursor down ?
FC2C48 661C                   bne      $FC2C66                      No
FC2C4A 123C0000               move.b   #0,D1                        X-offset for cursor down 
FC2C4E 143C0008               move.b   #8,D2                        Y-offset for cursor down
FC2C52 102D0E1B               move.b   $E1B(A5),D0                  Shift status
FC2C56 02000003               and.b    #3,D0                        One of the shift keys pressed?
FC2C5A 670000C6               beq      $FC2D22                      No
FC2C5E 143C0001               move.b   #1,D2                        Y-offset, only one pixel down
FC2C62 600000BE               bra      $FC2D22                      
FC2C66 0C010002               cmp.b    #2,D1                        '1'
FC2C6A 650C                   bcs      $FC2C78                      
FC2C6C 0C01000D               cmp.b    #13,D1                       '='
FC2C70 6206                   bhi      $FC2C78                      
FC2C72 06010076               add.b    #118,D1                      
FC2C76 600C                   bra      $FC2C84                      
FC2C78 0C000041               cmp.b    #65,D0                       'A'
FC2C7C 650A                   bcs      $FC2C88                      
FC2C7E 0C00005A               cmp.b    #90,D0                       'Z'
FC2C82 6204                   bhi      $FC2C88                      
FC2C84 7000                   moveq.l  #0,D0                        
FC2C86 600E                   bra      $FC2C96                      
FC2C88 0C000061               cmp.b    #97,D0                       'a'
FC2C8C 6508                   bcs      $FC2C96
FC2C8E 0C00007A               cmp.b    #122,D0                      'z'
FC2C92 6202                   bhi      $FC2C96
FC2C94 60EE                   bra      $FC2C84
FC2C96 E141                   asl.w    #8,D1                        Scancode to bits 8-15 
FC2C98 D041                   add.w    D1,D0                        plus ASCII code
FC2C9A 205F                   move.l   (A7)+,A0                     iorec pointer to keyboard 
FC2C9C 32280008               move.w   8(A0),D1                     Tail index
FC2CA0 5841                   addq.w   #4,D1                        plus 4
FC2CA2 B2680004               cmp.w    4(A0),D1                     End of buffer reached? 
FC2CA6 6502                   bcs      $FC2CAA                      No
FC2CA8 7200                   moveq.l  #0,D1                        Start over again
FC2CAA B2680006               cmp.w    6(A0),D1                     Buffer full?
FC2CAE 672A                   beq      $FC2CDA                      Yes, ignore data
FC2CB0 24680000               move.l   (A0),A2                      Address of the buffer 
FC2CB4 4840                   swap     D0                           ASCII code to bits 16-23 
FC2CB6 303C0000               move.w   #0,D0
FC2CBA 102D0E1B               move.b   $E1B(A5),D0                  Shift status
FC2CBE 4840                   swap     D0                           in upper word
FC2CC0 E188                   lsl.l    #8,D0                        in bits 24-31
FC2CC2 E048                   lsr.w    #8,D0                        ASCII code to bits 0-7 
FC2CC4 082D00030484           btst     #3,$484(A5)                  conterm, accept shift status? 
FC2CCA 6606                   bne      $FC2CD2                      Yes
FC2CCC 028000FFFFFF           and.l    #$00FFFFFF,D0                Clear shift status
FC2CD2 25801000               move.l   D0,0(A2,D1.w)                Write data in keyboard buffer 
FC2CD6 31410008               move.w   D1,8(A0)                     Update buffer pointer 
FC2CDA 4E75                   rts

*****************************************************************   midibyte
FC2CDC 246D0DCC               move.l   $DCC(A5),A2                  Pointer to MIDI interrupt handler
FC2CE0 4ED2                   jmp      (A2)                         Execute routine

*****************************************************************   sysmidi 
FC2CE2 32280008               move.w   8(A0),D1                     Tail index 
FC2CE6 5241                   addq.w   #1,D1                        Increment
FC2CE8 B2680004               cmp.w    4(A0),D1                     End of buffer reached?
FC2CEC 6502                   bcs      $FC2CF0                      No
FC2CEE 7200                   moveq.l  #0,D1                        Buffer pointer back to buffer start
FC2CF0 B2680006               cmp.w    6(A0),D1                     Head equals tail ? 
FC2CF4 670C                   beg      $FC2D02                      Yes, buffer full 
FC2CF6 24680000               move.l   (A0),A2                      Buffer address
FC2CFA 15801000               move.b   D0,0(A2,D1.w)                Write byte in buffer 
FC2CFE 31410008               move.w   D1,8(A0)                     New tail index
FC2D02 4E75                   rts                                   

*****************************************************************   keymausl 
FC2D04 7605                   moveq.l  #5,D3                        Accept right button
FC2D06 08010004               btst     #4,D1                        
FC2D0A 6702                   beq      $FC2D0E                      is right button ($47/$C7)
FC2D0C 7606                   moveq.l  #6,D3                        Left button
FC2D0E 08010007               btst     #7,D1                        Pressed or released? 
FC2D12 6706                   beq      $FC2D1A                      pressed
FC2D14 07AD0E1B               bclr     D3,$E1B(A5)                  Clear bit for button
FC2D18 6004                   bra      $FC2D1E                      
FC2D1A 07ED0E1B               bset     D3,$E1B(A5)                  Set bit for button 
FC2D1E 7200                   moveq.l  #0,D1                        X to 0
FC2D20 7400                   moveq.l  #0,D2                        Y to 0

*****************************************************************   keymouse
FC2D22 41ED0E18               lea      $E18(A5),A0                  Pointer to mouse emulator buffer
FC2D26 246D0DDC               move.l   $DDC(A5),A2                  Mouse interrupt vector
FC2D2A 4280                   clr.l    D0                           
FC2D2C 102D0E1B               move.b   $E1B(A5),D0                  Get status of the "mouse" buttons
FC2D30 EA08                   lsr.b    #5,D0                        Bit for rignt/left to bits 0/1
FC2D32 060000F8               add.b    #$F8,D0                      plus relative mouse header 
FC2D36 11400000               move.b   D0,(A0)                      in buffer
FC2D3A 11410001               move.b   D1,1(A0)                     Store X-value
FC2D3E 11420002               move.b   D2,2(A0)                     Store Y-value
FC2D42 4E92                   jsr      (A2)                         Call mouse interrupt routine 
FC2D44 205F                   move.l   (A7)+,A0                     iorec for keyboard back
FC2D46 4E75                   rts                                   

*****************************************************************   mousekeyl 
FC2D48 47C752D2               dc.b     $47,$C7,$52,$D2              Scancode for pseudo mouse

*****************************************************************   giaccess,read write sound chip 
FC2D4C 302F0004               move.w   4(A7),D0                     Data 
FC2D50 322F0006               move.w   6(A7),D1                     Register number plus read/write 
FC2D54 40E7                   move.w   SR,-(A7)                     Save status
FC2D56 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts
FC2D5A 48E76080               movem.l  D1-D2/A0,-(A7)               Save registers
FC2D5E 41F9FFFF8800           lea      $FFFF8800,A0                 Address of the sound chip
FC2D64 1401                   move.b   D1,D2                        Get register number
FC2D66 0201000F               and.b    #$F,D1                       Registers 0-15
FC2D6A 1081                   move.b   D1,(A0)                      Select register
FC2D6C E302                   asl.b    #1,D2                        Test read/write bit
FC2D6E 6404                   bcc      $FC2D74                      Read
FC2D70 11400002               move.b   D0,2(A0)                     Write data byte in sound chip register
FC2D74 7000                   moveq.l  #0,D0                        
FC2D76 1010                   move.b   (A0),D0                      Read byte from sound chip 
FC2D78 4CDF0106               movem.l  (A7)+,D1-D2/A0               Restore registers 
FC2D7C 46DF                   move.w   (A7)+,SR                     Restore status
FC2D7E 4E75                   rts                                   

*****************************************************************   rtsoff, turn RTS off
FC2D80 7408                   moveq.l  #8,D2                        Bit 3
FC2D82 6012                   bra      $FC2D96                      Set in port A

*****************************************************************   rtson, turn RTS on
FC2D84 74F7                   moveq.l  #$F7,D2                      Bit 3
FC2D86 6034                   bra      $FC2DBC                      Clear in port A

*****************************************************************   dtroff, turn DTR Off
FC2D88 7410                   moveq.l  #$10,D2                      Bit 4
FC2D8A 600A                   bra      $FC2D96                      Set in port A

*****************************************************************   dtron, turn DTR on
FC2D8C 74EF                   moveq.l  #$EF,D2                      Bit 3
FC2D8E 602C                   bra      $FC2DBC                      Clear in port A

*****************************************************************   ongibit, set bit(s) in sound chip port A
FC2D90 7400                   moveq.l  #0,D2                        
FC2D92 342F0004               move.w   4(A7),D2                     Get bit pattern 
FC2D96 48E7E000               movem.l  D0-D2,-(A7)                  Save registers 
FC2D9A 40E7                   move.w   SR, -(A7)                    Save status
FC2D9C 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts
FC2DA0 720E                   moveq.l  #$E,D1                       Read port A
FC2DA2 2F02                   move.l   D2,-(A7)                     Save bit pattern 
FC2DA4 61AE                   bsr      $FC2D54                      Read port A
FC2DA6 241F                   move.l   (A7)+,D2                     Restore bit pattern 
FC2DA8 8002                   or.b     D2,D0                        OR bits to old value 
FC2DAA 728E                   moveq.l  #$8E,D1                      Write port A
FC2DAC 61A6                   bsr      $FC2D54                      Write new value
FC2DAE 46DF                   move.w   (A7)+,SR                     Restore status 
FC2DB0 4CDF0007               movem.l  (A7)+,D0-D2                  Restore registers
FC2DB4 4E75                   rts

*****************************************************************   offgibit, clear bits in sound chip port A
FC2DB6 7400                   moveq.l  #0,D2                        
FC2DB8 342F0004               move.w   4(A7),D2                     Bit pattern
FC2DBC 48E7E000               movem.l  D0-D2,-(A7)                  Save registers
FC2DC0 40E7                   move.w   SR, -(A7)                    save status
FC2DC2 007C0700               or.w     #$700,SR                     IPL 7, disable interrupts 
FC2DC6 720E                   moveq.l  #$E,D1                       Read port A
FC2DC8 2F02                   move.l   D2,-(A7)                     Save bit pattern 
FC2DCA 6188                   bsr      $FC2D54                      Read port A
FC2DCC 241F                   move.l   (A7)+,D2                     Restore bit pattern 
FC2DCE C002                   and.b    D2,D0                        Clear bits
FC2DD0 728E                   moveq.l  #$8E,D1                      Write to port A 
FC2DD2 6180                   bsr      $FC2D54                      Write new value 
FC2DD4 46DF                   move.w   (A7)+,SR                     Restore status 
FC2DD6 4CDF0007               movem.l  (A7)+,D0-D2                  Restore registers
FC2DDA 4E75                   rts                                   

*****************************************************************   initmouse
FC2DDC 4A6F0004               tst.w    4(A7)                        Turn mouse off?
FC2DE0 6726                   beq      $FC2E08                      Yes, disable mouse
FC2DE2 2B6F000A0DDC           move.l   10(A7),$DDC(A5)              Mouse interrpt vector
FC2DE8 266F0006               move.l   6(A7),A3                     Address of the parameter block 
FC2DEC 0C6F00010004           cmp.w    #1,4(A7)                     Relative mouse ?
FC2DF2 6724                   beq      $FC2E18                      Yes 
FC2DF4 0C6F00020004           cmp.w    #2,4(A7)                     Absolute mouse ? 
FC2DFA 6736                   beq      $FC2E32                      Yes 
FC2DFC 0C6F00040004           cmp.w    #4,4(A7)                     Keycode mouse ? 
FC2E02 6770                   beq      $FC2E74                      Yes
FC2E04 7000                   moveq.l  #0,D0                        Error, invalid
FC2E06 4E75                   rts

*****************************************************************   disable mouse
FC2E08 7212                   moveq.l  #$12,D1                      Disable mouse command
FC2E0A 6100F19C               bsr      $FC1FA8                      Send to IKBD
FC2E0E 2B7C00FC2EDC0DDC       move.l   #$FC2EDC,$DDC(A5)            Mouse interrpt vector to rts
FC2E16 6070                   bra      $FC2E88                      

*****************************************************************   relative mouse
FC2E18 45ED0E28               lea      $E28(A5),A2                  Transfer buffer pointer 
FC2E1C 14FC0008               move.b   #8,(A2)+                     Relative mouse
FC2E20 14FC000B               move.b   #$B,(A2)+                    Relative mouse threshold x, y
FC2E24 6166                   bsr      $FC2E8C                      Set mouse parameters 
FC2E26 7606                   moveq.l  #6,D3                        Length of string - 1 
FC2E28 45ED0E28               lea      $E28(A5),A2                  Transfer buffer pointer 
FC2E2C 6100F19A               bsr      $FC1FC8                      Send string to IKBD
FC2E30 6056                   bra      $FC2E88                      

*****************************************************************   absolute mouse
FC2E32 45ED0E28               lea      $E28(A5),A2                  Transfer buffer pointer 
FC2E36 14FC0009               move.b   #9,(A2)+                     Absolute mouse
FC2E3A 14EB0004               move.b   4(A3),(A2)+                  xmax msb
FC2E3E 14EB0005               move.b   5(A3),(A2)+                  xmax lsb
FC2E42 14EB0006               move.b   6(A3),(A2)+                  ymax msb
FC2E46 14EB0007               move.b   7(A3),(A2)+                  ymax lsb
FC2E4A 14FC000C               move.b   #$C,(A2)+                    Absolute mouse scale 
FC2E4E 613C                   bsr      $FC2E8C                      Set mouse parameters
FC2E50 14FC000E               move.b   #$E,(A2)+                    Initial absolute mouse position
FC2E54 14FC0000               move.b   #0,(A2) +                    Fill byte
FC2E58 14EB0008               move.b   8(A3),(A2)+                  Start position x msb 
FC2E5C 14EB0009               move.b   9(A3),(A2)+                  Start position x lsb 
FC2E60 14EB000A               move.b   10(A3),(A2)+                 Start position y msb 
FC2E64 14EB000B               move.b   11(A3),(A2)+                 Start position y lsb 
FC2E68 7610                   moveq.l  #16,D3                       String length - 1
FC2E6A 45ED0E28               lea      $E28(A5),A2                  Transfer buffer pointer 
FC2E6E 6100F158               bsr      $FC1FC8                      Send string to IKBD
FC2E72 6014                   bra      $FC2E88                      

*****************************************************************   Keycode mouse
FC2E74 45ED0E28               lea      $E28(A5),A2                  Transfer buffer pointer 
FC2E78 14FC000A               move.b   #$A,(A2)+                    Mouse keycode mode
FC2E7C 610E                   bsr      $FC2E8C                      Set mouse parameters 
FC2E7E 7605                   moveq.l  #5,D3                        Length of string - 1
FC2E80 45ED0E28               lea      $E28(A5),A2                  Transfer buffer pointer 
FC2E84 6100F142               bsr      $FC1FC8                      Send string to IKBD 
FC2E88 70FF                   moveq.l  #-1,D0                       Flag for OK
FC2E8A 4E75                   rts                                   

*****************************************************************   setmouse, set mouse parameters
FC2E8C 14EB0002               move.b   2(A3),(A2)+                  x threshold, scale, delta 
FC2E90 14EB0003               move.b   3(A3),(A2)+                  y threshold, scale, delta 
FC2E94 7210                   moveq.l  #16,D1                       top/bottom ?
FC2E96 922B0000               sub.b    (A3),D1                      
FC2E9A 14C1                   move.b   D1,(A2)+                     
FC2E9C 14FC0007               move.b   #7,(A2)+                     
FC2EA0 14EB0001               move.b   1(A3),(A2)+                  
FC2EA4 4E75                   rts                                   

*****************************************************************   xbtimer, initialize timer
FC2EA6 7000                   moveq.l  #0,D0                        
FC2EA8 7200                   moveq.l  #0,D1                        Clear registers
FC2EAA 7400                   moveq.l  #0,D2                        
FC2EAC 302F0004               move.w   4(A7),D0                     Timer number (0-3 => A-D) 
FC2EB0 322F0006               move.w   6(A7),D1                     Value for control register 
FC2EB4 342F0008               move.w   8(A7),D2                     Value for date register 
FC2EB8 6100F4AC               bsr      $FC2366                      Set timer values
FC2EBC 4AAF000A               tst.l    10(A7)                       Corresponding interrupt vector
FC2EC0 6B1A                   bmi      $FC2EDC                      not used?
FC2EC2 246F000A               move.l   10(A7),A2                    Get vector
FC2EC6 7200                   moveq.l  #0,D1
FC2EC8 43F900FC2EDE           lea      $FC2EDE,A1                   Table for determining interrupt number 
FC2ECE 0280000000FF           and.l    #$FF,D0
FC2ED4 10310000               move.b   0(A1,D0.w),D0                Get interrupt number
FC2ED8 6100F542               bsr      $FC241C                      initint, install interrupt
FC2EDC 4E75                   rts

*****************************************************************   Interrupt numbers of the MFP timer
FC2EDE 0D080504               dc.b     13,8,5,4

*****************************************************************   keytrans, set keyboard tables
FC2EE2 4AAF0004               tst.l    4(A7)                        Change standard table?
FC2EE6 6B06                   bmi      $FC2EEE                      No
FC2EE8 2B6F00040E1C           move.l   4(A7),$E1C(A5)               Address of the standard table 
FC2EEE 4AAF0008               tst.l    8(A7)                        Change shift table?
FC2EF2 6B06                   bmi      $FC2EFA                      No
FC2EF4 2B6F00080E20           move.l   8(A7),$E20(A5)               Address of the shift table 
FC2EFA 4AAF000C               tst.l    12(A7)                       Change Caps Lock table
FC2EFE 6B06                   bmi      $FC2F06                      No
FC2F00 2B6F000C0E24           move.l   12(A7),$E24(A5)              Address of the Caps Lock table 
FC2F06 203C00000E1C           move.l   #$E1C,D0                     Pointer to addresses of the tables 
FC2F0C 4E75                   rts

*****************************************************************   bioskeys, standard keyboard table
FC2F0E 2B7C00FC20340E1C       move.l   #$FC2034,$E1C(A5)            Standard table 
FC2F16 2B7C00FC20B40E20       move.l   #$FC20B4,$E20(A5)            Shift table 
FC2F1E 2B7C00FC21340E24       move.l   #$FC2134,$E24(A5)            Caps Lock table
FC2F26 4E75                   rts

*****************************************************************   dosound, start sound
FC2F28 202D0E44               move.l   $E44(A5),D0                  Get sound status
FC2F2C 222F0004               move.l   4(A7),D1                     Address of the sound table 
FC2F30 6B08                   bmi      $FC2F3A                      Don't set
FC2F32 2B410E44               move.l   D1,$E44(A5)                  New sound table
FC2F36 422D0E48               clr.b    $E48(A5)                     Start sound timer
FC2F3A 4E75                   rts

*****************************************************************   setprt, set/get printer configuration 
FC2F3C 302D0E4A               move.w   $E4A(A5),D0                  Old printer configuration 
FC2F40 4A6F0004               tst.w    4(A7)                        New value negative?
FC2F44 6B06                   bmi      $FC2F4C                      Yes, don't set
FC2F46 3B6F00040E4A           move.w   4(A7),$E4A(A5)               Set new value
FC2F4C 4E75                   rts

*****************************************************************   kbrate, set/get keyboard repeat 
FC2F4E 302D0E3C               move.w   $E3C(A5),D0                  Delay before key repeat
FC2F52 4A6F0004               tst.w    4(A7)                        new value negative?
FC2F56 6B16                   bmi      $FC2F6E                      Yes, don't set
FC2F58 322F0004               move.w   4(A7),D1                     Get new value
FC2F5C 1B410E3C               move.b   D1,$E3C(A5)                  and save
FC2F60 4A6F0006               tst.w    6(A7)                        Repeat rate
FC2F64 6B08                   bmi      $FC2F6E                      Negative, don't set
FC2F66 322F0006               move.w   6(A7),D1                     Get new value
FC2F6A 1B410E3D               move.b   D1,$E3D(A5)                  and save
FC2F6E 4E75                   rts

*****************************************************************   ikbdvecs, pointer to IKBD + MIDI vectors 
FC2F70 203C00000DCC           move.l   #$DCC,D0                     Address of the vector table
FC2F76 4E75                   rts

*****************************************************************   timercint, timer C interrupt
FC2F78 52B9000004BA           addq.l   #1,$4BA                      _hz_200, increment 200 Hz counter
FC2F7E E7F900000E42           rol.w    $E42                         Rotate bit map
FC2F84 6A4E                   bpl      $FC2FD4                      Not fourth interrupt, then done
FC2F86 48E7FFFE               movem.l  D0-D7/A0-A6,-(A7)            Save registers 
FC2F8A 4BF900000000           lea      $0,A5                        Clear A5 
FC2F90 614C                   bsr      $FC2FDE                      Process sound
FC2F92 082D00010484           btst     #1,$484(A5)                  conterm, key repeat enabled ?
FC2F98 672A                   beq      $FC2FC4                      No 
FC2F9A 4A2D0E39               tst.b    $E39(A5)                     Key pressed ? 
FC2F9E 6724                   beq      $FC2FC4                      No
FC2FA0 4A2D0E3A               tst.b    $E3A(A5)                     Counter for start delay
FC2FA4 6706                   beq      $FC2FAC                      Not active 
FC2FA6 532D0E3A               subq.b   #1,$E3A(A5)                  decrement counter 
FC2FAA 6618                   bne      $FC2FC4                      Not run out?
FC2FAC 532D0E3B               subq.b   #1,$E3B(A5)                  Decrement counter for repeat rate
FC2FB0 6612                   bne      $FC2FC4                      Not run out? 
FC2FB2 1B6D0E3D0E3B           move.b   $E3D(A5),$E3B(A5)            Reload counter 
FC2FB8 102D0E39               move.b   $E39(A5),D0                  Key to repeat
FC2FBC 41ED0DB0               lea      $DB0(A5),A0                  Pointer to iorec keyboard 
FC2FC0 6100FACE               bsr      $FC2A90                      Key code in keyboard buffer
FC2FC4 3F2D0442               move.w   $442(A5),-(A7)               _timer_ms 
FC2FC8 206D0400               move.l   $400(A5),A0                  etv_timer 
FC2FCC 4E90                   jsr      (A0)                         Execute routine
FC2FCE 544F                   addq.w   #2,A7                        Correct stack pointer
FC2FD0 4CDF7FFF               movem.l  (A7)+,D0-D7/A0-A6            Restore register
FC2FD4 08B90005FFFFFA11       bclr     #5,$FFFFFA11                 Clear interrupt service bit
FC2FDC 4E73                   rte                                   

*****************************************************************   sndirq, sound interrupt routine
FC2FDE 48E7C080               movem.l  D0-D1/A0,-(A7)               Save registers
FC2FE2 202D0E44               move.l   $E44(A5),D0                  Pointer to sound table
FC2FE6 67000088               beq      $FC3070                      No sound active?
FC2FEA 2040                   move.l   D0,A0                        Pointer to A0
FC2FEC 102D0E48               move.b   $E48(A5),D0                  Load timer value
FC2FF0 6708                   beq      $FC2FFA                      New sound started?
FC2FF2 5300                   subq.b   #1,D0                        Else decrement timer
FC2FF4 1B400E48               move.b   D0,$E48(A5)                  and store again
FC2FF8 6076                   bra      $FC3070                      Done
FC2FFA 1018                   move.b   (A0)+,D0                     Get sound command
FC2FFC 6B2E                   bmi      $FC302C                      Bit 7 set, special command 
FC2FFE 13C0FFFF8800           move.b   D0,$FFFF8800                 Select register in sound chip 
FC3004 0C000007               cmp.b    #7,D0                        Mixer ?
FC3008 661A                   bne      $FC3024                      No
FC300A 1218                   move.b   (A0)+,D1                     Data for mixer
FC300C 0201003F               and.b    #$3F,D1                      Isolate bits 0-5
FC3010 1039FFFF8800           move.b   $FFFF8800,D0                 Read mixer
FC3016 020000C0               and.b    #$C0,D0                      Isolate bits 6-7
FC301A 8001                   or.b     D1,D0                        OR with sound data
FC301C 13C0FFFF8802           move.b   D0,$FFFF8802                 and write in register
FC3022 60D6                   bra      $FC2FFA                      Next sound command
FC3024 13D8FFFF8802           move.b   (A0)+,$FFFF8802              Write byte directly in sound chip
FC302A 60CE                   bra      $FC2FFA                      Next sound command 
FC302C 5200                   addq.b   #1,D0                        Was command $FF ?
FC302E 6A32                   bpl      $FC3062                      Yes
FC3030 0C000081               cmp.b    #$81,D0                      Was command $80 ? 
FC3034 6606                   bne      $FC303C                      No
FC3036 1B580E49               move.b   (A0)+,$E49(A5)               Save byte for later 
FC303A 60BE                   bra      $FC2FFA                      Next sound command 
FC303C 0C000082               cmp.b    #$82,D0                      Was command $81 ? 
FC3040 6620                   bne      $FC3062                      No
FC3042 13D8FFFF8800           move.b   (A0)+,$FFFF8800              Select register 
FC3048 1018                   move.b   (A0)+,D0                     Increment value 
FC304A D12D0E49               add.b    D0,$E49(A5)                  Add
FC304E 1018                   move.b   (A0)+,D0                     End value
FC3050 13ED0E49FFFF8802       move.b   $E49(A5),$FFFF8802           Write temp value in sound chip
FC3058 B02D0E49               cmp.b    $E49(A5),D0                  End value reached? 
FC305C 670E                   beq      $FC306C                      Yes 
FC305E 5948                   subq.w   #4,A0                        Sound back to same command
FC3060 600A                   bra      $FC306C                      
FC3062 1B580E48               move.b   (A0)+,$E48(A5)               Next value as delay timer 
FC3066 6604                   bne      $FC306C                      
FC3068 307C0000               move.w   #0,A0                        Clear sound pointer
FC306C 2B480E44               move.l   A0,$E44(A5)                  Save current sound pointer 
FC3070 4CDF0103               movem.l  (A7)+,D0-D1/A0               Restore registers
FC3074 4E75                   rts                                   

*****************************************************************   bellsnd, sound for CTRL G
FC3076 0034                   dc.b     0.$34
FC3078 0100                   dc.b     1,0
FC307A 0200                   dc.b     2,0
FC307C 0300                   dc.b     3,0
FC307E 0400                   dc.b     4,0
FC3080 0500                   dc.b     5,0
FC3082 0600                   dc.b     6,0
FC3084 07FE                   dc.b     7,$FE
FC3086 0810                   dc.b     8,10
FC3088 0900                   dc.b     9,0
FC308A 0A00                   dc.b     10,0
FC308C 0B00                   dc.b     11,0
FC308E 0C10                   dc.b     12,16
FC3090 0D09                   dc.b     13,9
FC3092 FF00                   dc.b     $FF,0

*****************************************************************   keyclick, sound on key click
FC3094 003B                   dc.b     0,$3B
FC3096 0100                   dc.b     1,0
FC3098 0200                   dc.b     2,0
FC309A 0300                   dc.b     3,0
FC309C 0400                   dc.b     4,0
FC309E 0500                   dc.b     5,0
FC30A0 0600                   dc.b     6,0
FC30A2 07FE                   dc.b     7,$FE
FC30A4 0810                   dc.b     8,16
FC30A6 0D03                   dc.b     13,3
FC30A8 0B80                   dc.b     11,$80
FC30AA 0C01                   dc.b     12,1
FC30AC FF00                   dc.b     $FF,0

*****************************************************************   prtblk, hardcopy
FC30AE 4E560000               link     A6,#0                        
FC30B2 48E7070C               movem.l  D5-D7/A4-A5,-(A7)            Save registers
FC30B6 2A6E0008               move.l   8(A6),A5                     Address of the parameter block 
FC30BA 287C000029BE           move.l   #$29BE,A4                    Address of the working memory 
FC30C0 7E1E                   moveq.l  #30,D7                       30 bytes
FC30C2 6004                   bra      $FC30C8                      
FC30C4 18DD                   move.b   (A5)+,(A4)+                  Copy parameters in working memory
FC30C6 5347                   subq.w   #1,D7                        
FC30C8 4A47                   tst.w    D7                           
FC30CA 6EF8                   bgt      $FC30C4                      Next byte
FC30CC 0C790001000029D6       cmp.w    #1,$29D6                     p_port
FC30D4 630E                   bls      $FC30E4                      0 or 1 ?
FC30D6 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC30DE 70FF                   moveq.l  #-1,D0                       Flag for error 
FC30E0 60000F6C               bra      $FC404E                      Terminate
FC30E4 4A79000029D6           tst.w    $29D6                        p_port 
FC30EA 6704                   beq      $FC30F0                      Centronics ?
FC30EC 4240                   clr.w    D0                           0 = RS 232
FC30EE 6002                   bra      $FC30F2                      
FC30F0 7001                   moveq.l  #1,D0                        1 = Centronics 
FC30F2 13C0000029BC           move.b   D0,$29BC                     Save printer port 
FC30F8 4A79000029C6           tst.w    $29C6                        p_height
FC30FE 6654                   bne      $FC3154                      Not zero?
FC3100 6032                   bra      $FC3134                      Else just dump p_width bytes

FC3102 0C790001000004EE       cmp.w    #1,$4EE                      _dumpflg to one?
FC310A 663A                   bne      $FC3146                      Terminate hardcopy?
FC310C 2079000029BE           move.l   $29BE,A0                     p_blkptr, screen address
FC3112 1010                   move.b   (A0),D0                      Get byte
FC3114 4880                   ext.w    D0                           
FC3116 3E80                   move.w   D0,(A7)                      on the stack 
FC3118 61000F3E               bsr      $FC4058                      Output character 
FC311C 52B9000029BE           addq.l   #1,$29BE                     Increment p_blkptr 
FC3122 4A40                   tst.w    D0                           Output OK ?
FC3124 670E                   beq      $FC3134                      Yes
FC3126 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC312E 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3130 60000F1C               bra      $FC404E                      Terminate

FC3134 4240                   clr.w    D0                           
FC3136 3039000029C4           move.w   $29C4,D0                     p_width
FC313C 5379000029C4           subq.w   #1,$29C4                     Decrement p_width
FC3142 4A40                   tst.w    D0                           Not zero yet?
FC3144 66BC                   bne      $FC3102                      Output next character 
FC3146 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC314E 4240                   clr.w    D0                           OK
FC3150 60000EFC               bra      $FC404E                      Terminate
FC3154 0C790003000029D4       cmp.w    #3,$29D4                     p_type
FC315C 630E                   bls      $FC316C                      OK ?
FC315E 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3166 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3168 60000EE4               bra      $FC404E                      Terminate

FC316C 0C790001000029CE       cmp.w    #1,$29CE                     p_destres, printer resolution
FC3174 630E                   bls      $FC3184                      OK ?
FC3176 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC317E 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3180 60000ECC               bra      $FC404E                      Terminate

FC3184 0C790002000029CC       cmp.w    #2,$29CC                     p_srcres, screen resolution 
FC318C 630E                   bls      $FC319C                      OK ?
FC318E 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC3196 70FF                   moveq.l  #-1,D0                       Flag for error
FC3198 60000EB4               bra      $FC404E                      Terminate

FC319C 0C790007000029C2       cmp.w    #7,$29C2                     p_offset
FC31A4 630E                   bls      $FC31B4                      OK ?
FC31A6 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC31AE 70FF                   moveq.l  #-1,D0                       Flag for error 
FC31B0 60000E9C               bra      $FC404E                      Terminate

FC31B4 4A79000029CC           tst.w    $29CC                        p_srcres, screen resolution 
FC31BA 6704                   beq      $FC31C0                      Low resolution ?
FC31BC 4240                   clr.w    D0                           
FC31BE 6002                   bra      $FC31C2                      
FC31C0 7001                   moveq.l  #1,D0                        
FC31C2 13C00000609A           move.b   D0,$609A                     Flag for low resolution 
FC31C8 0C790001000029CC       cmp.w    #1,$29CC                     p_srcres, screen resolution
FC31D0 6704                   beq      $FC31D6                      Medium resolution ?
FC31D2 4240                   clr.w    D0 
FC31D4 6002                   bra      $FC31D8 
FC31D6 7001                   moveq.l  #1,D0 
FC31D8 13C000005FE4           move.b   D0,$5FE4                     Flag for medium resolution 
FC31DE 0C790002000029CC       cmp.w    #2,$29CC                     p_srcres, screen resolution 
FC31E6 6704                   beq      $FC31EC                      High resolution ?
FC31E8 4240                   clr.w    D0                           
FC31EA 6002                   bra      $FC31EE                      
FC31EC 7001                   moveq.l  #1,D0                        
FC31EE 13C000005FE6           move.b   D0,$5FE6                     Flag for high resolution
FC31F4 4A79000029CE           tst.w    $29CE                        p_destres, printer resolution 
FC31FA 6704                   beq      $FC3200                      Test mode?
FC31FC 4240                   clr.w    D0                           Quality mode
FC31FE 6002                   bra      $FC3202                      
FC3200 7001                   moveq.l  #1,D0                        
FC3202 13C000005FFE           move.b   D0,$5FFE                     Flag for mode 
FC3208 0C790001000029D4       cmp.w    #1,$29D4                     p_type, ATARI color dot-matrix printer?
FC3210 6704                   beq      $FC3216                      Yes
FC3212 4240                   clr.w    D0                           
FC3214 6002                   bra      $FC3218                      
FC3216 7001                   moveq.l  #1,D0                        
FC3218 13C00000575E           move.b   D0,$575E                     Flag for ATARI color dot-matrix printer
FC321E 0C790002000029D4       cmp.w    #2,$29D4                     p_type, ATARI daisy-wheel printer?
FC3226 6704                   beq      $FC322C                      
FC3228 4240                   clr.w    D0                           
FC322A 6002                   bra      $FC322E                      
FC322C 7001                   moveq.l  #1,D0                        
FC322E 13C00000609C           move.b   D0,$609C                     Flag for ATARI daisy-wheel printer
FC3234 0C790003000029D4       cmp.w    #3,$29D4                     p_type, Epson B/W dot-matrix printer? 
FC323C 6704                   beq      $FC3242                      Yes
FC323E 4240                   clr.w    D0                           Else ATARI B/W matrix printer
FC3240 6002                   bra      $FC3244                      
FC3242 7001                   moveq.l  #1,D0                        
FC3244 13C000005780           move.b   D0,$5780                     Flag for Epson B/W dot matrix printer
FC324A 4A390000609C           tst.b    $609C                        ATARI daisy wheel? 
FC3250 670E                   beq      $FC3260                      No
FC3252 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC325A 70FF                   moveq.l  #-1,D0                       Flag for error 
FC325C 60000DF0               bra      $FC404E                      Terminate

FC3260 4A3900005780           tst.b    $5780                        Epson B/W dot-matrix? 
FC3266 670C                   beq      $FC3274                      No
FC3268 4A3900005FFE           tst.b    $5FFE                        Quality mode?
FC326E 6604                   bne      $FC3274                      No
FC3270 7001                   moveq.l  #1,D0                        
FC3272 6008                   bra      $FC327C                      
FC3274 103900005FFE           move.b   $5FFE,D0                     Quality mode
FC327A 4880                   ext.w    D0                           
FC327C 13C000005FFE           move.b   D0,$5FFE                     Quality mode
FC3282 4A390000609A           tst.b    $609A                        Low resolution ?
FC3288 6726                   beq      $FC32B0                      No
FC328A 0C790140000029C4       cmp.w    #320,$29C4                   p_width
FC3292 631C                   bls      $FC32B0                      
FC3294 4240                   clr.w    D0
FC3296 3039000029C4           move.w   $29C4,D0                     p_width
FC329C D07CFEC0               add.w    #-320,D0                     
FC32A0 D179000029CA           add.w    D0,$29CA                     p_right 
FC32A6 33FC0140000029C4       move.w   #320,$29C4                   p_width
FC32AE 6024                   bra      $FC32D4                      
FC32B0 0C790280000029C4       cmp.w    #640,$29C4                   p_width
FC32B8 631A                   bls      $FC32D4                      
FC32BA 4240                   clr.w    D0                           
FC32BC 3039000029C4           move.w   $29C4,D0                     p_width
FC32C2 D07CFD80               add.w    #-640,D0                     
FC32C6 D179000029CA           add.w    D0,$29CA                     p_right 
FC32CC 33FC0280000029C4       move.w   #640,$29C4                   p_width 
FC32D4 4AB9000029D8           tst.l    $29D8                        p_masks, half-tone mask
FC32DA 6614                   bne      $FC32F0                      
FC32DC 23FC00FD1BAC000029D8   move.l   #$FD1BAC,$29D8               Use default mask
FC32E6 13FC000100004DBA       move.b   #1,$4DBA                     
FC32EE 6006                   bra      $FC32F6                      
FC32F0 423900004DBA           clr.b    $4DBA                        
FC32F6 4A3900005FE6           tst.b    $5FE6                        High resolution ? 
FC32FC 6718                   beq      $FC3316                      No 
FC32FE 2079000029D0           move.l   $29D0,A0                     p_colpal
FC3304 4240                   clr.w    D0                           
FC3306 3010                   move.w   (A0),D0                      Get color
FC3308 C07C0001               and.w    #1,D0                        
FC330C 33C00000608C           move.w   D0,$608C                     
FC3312 60000290               bra      $FC35A4                      
FC3316 4247                   clr.w    D7                           Clear counter for running color 
FC3318 60000282               bra      $FC359C                      To loop end

FC331C 2079000029D0           move.l   $29D0,A0                     colpal, address of color palette
FC3322 4240                   clr.w    D0                           
FC3324 3010                   move.w   (A0),D0                      Get color
FC3326 C07C0777               and.w    #$777,D0                     Mask irrelevant bits 
FC332A 33C00000574A           move.w   D0,$574A                     Mask color
FC3330 54B9000029D0           addq.l   #2,$29D0                     Poiner to next color 
FC3336 0C7907770000574A       cmp.w    #$777,$574A                  Color equals white? 
FC333E 67000230               beq      $FC3570                      Yes
FC3342 30390000574A           move.w   $574A,D0                     Load color
FC3348 C07C0007               and.w    #7,D0                        Isolate blue level 
FC334C 33C000004150           move.w   D0,$4150                     And save
FC3352 30390000574A           move.w   $574A,D0                     Load color
FC3358 E840                   asr.w    #4,D0                        
FC335A C07C0007               and.w    #7,D0                        Isolate green level
FC335E 33C000005FE8           move.w   D0,$5FE8                     and save 
FC3364 30390000574A           move.w   $574A,D0                     Load color 
FC336A E040                   asr.w    #8,D0
FC336C C07C0007               and.w    #7,D0                        Isolate red level 
FC3370 330000005624           move.w   D0,$5624                     and save 
FC3376 4A390000575E           tst.b    $575E                        ATARI color dot-matrix printer? 
FC337C 670001A0               beq      $FC351E                      No
FC3380 3047                   move.w   D7,A0
FC3382 D1C8                   add.l    A0,A0
FC3384 D1FC00005760           add.l    #$5760,A0
FC338A 30B900005624           move.w   $5624,(A0)                   Red level 
FC3390 3047                   move.w   D7,A0
FC3392 D1C8                   add.l    A0,A0
FC3394 227C00005760           move.l   #$5760,A1
FC339A 30309800               move.w   0(A0,A1.l),D0
FC339E B07900005FE8           cmp.w    $5FE8,D0                     Green level 
FC33A4 6C08                   bge      $FC33AE
FC33A6 303900005FE8           move.w   $5FE8,D0                     Green level 
FC33AC 600E                   bra      $FC33BC
FC33AE 3047                   move.w   D7,A0
FC33B0 D1C8                   add.l    A0,A0
FC33B2 227C00005760           move.l   #$5760,A1
FC33B8 30309800               move.w   0(A0,A1.l),D0
FC33BC 3247                   move.w   D7,A1
FC33BE D3C9                   add.l    A1,A1
FC33C0 D3FC00005760           add.l    #$5760,A1
FC33C6 3280                   move.w   D0,(A1)
FC33C8 3047                   move.w   D7,A0
FC33CA D1C8                   add.l    A0,A0
FC33CC 227C00005760           move.l   #$5760,A1
FC33D2 30309800               move.w   0(A0,A1.l),D0
FC33D6 B07900004150           cmp.w    $4150,D0                     Blue level
FC33DC 6C08                   bge      $FC33E6                      
FC33DE 303900004150           move.w   $4150,D0                     Blue level
FC33E4 600E                   bra      $FC33F4                      
FC33E6 3047                   move.w   D7,A0                        
FC33E8 D1C8                   add.l    A0,A0                        
FC33EA 227C00005760           move.l   #$5760,A1                    
FC33F0 30309800               move.w   0(A0,A1.l),D0                
FC33F4 3247                   move.w   D7,A1                        
FC33F6 D3C9                   add.l    A1,A1                        
FC33F8 D3FC00005760           add.l    #$5760,A1                    
FC33FE 3280                   move.w   D0,(A1)                      
FC3400 3047                   move.w   D7,A0                        
FC3402 D1C8                   add.l    A0,A0                        
FC3404 D1FC00005760           add.l    #$5760,A0                    
FC340A 5250                   addq.w   #1,(A0)                      
FC340C 3047                   move.w   D7,A0                        
FC340E D1C8                   add.l    A0,A0                        
FC3410 D1FC00006002           add.l    #$6002,A0                    
FC3416 30B900005624           move.w   $5624,(A0)                   Red level
FC341C 3047                   move.w   D7,A0                        
FC341E D1C8                   add.l    A0,A0                        
FC3420 227C00006002           move.l   #$6002,A1                    
FC3426 30309800               move.w   0(A0,A1.l),D0
FC342A B07900005FE8           cmp.w    $5FE8,D0                     Green level
FC3430 6F08                   ble      $FC343A
FC3432 303900005FE8           move.w   $5FE8,D0                     Green level
FC3438 600E                   bra      $FC3448
FC343A 3047                   move.w   D7,A0
FC343C D1C8                   add.l    A0,A0 
FC343E 227C00006002           move.l   #$6002,A1 
FC3444 30309800               move.w   0(A0,A1.l),D0 
FC3448 3247                   move.w   D7,A1 
FC344A D3C9                   add.l    A1,A1 
FC344C D3FC00006002           add.l    #$6002,A1 
FC3452 3280                   move.w   D0,(A1) 
FC3454 3047                   move.w   D7,A0 
FC3456 D1C8                   add.l    A0,A0 
FC3458 227C00006002           move.l   #$6002,A1 
FC345E 30309800               move.w   0(A0,A1.l),D0 
FC3462 B07900004150           cmp.w    $4150,D0                     Green level
FC3468 6F08                   ble      $FC3472 
FC346A 303900004150           move.w   $4150,D0                     Green level
FC3470 600E                   bra      $FC3480 
FC3472 3047                   move.w   D7,A0
FC3474 D1C8                   add.l    A0,A0 
FC3476 227C00006002           move.l   #$6002,A1 
FC347C 30309800               move.w   0(A0,A1.l),D0 
FC3480 3247                   move.w   D7,A1 
FC3482 D3C9                   add.l    A1,A1 
FC3484 D3FC00006002           add.l    #$6002,A1 
FC348A 3280                   move.w   D0,(A1) 
FC348C 303900005624           move.w   $5624,D0                     Red level
FC3492 3247                   move.w   D7,A1 
FC3494 D3C9                   add.l    A1,A1 
FC3496 D3FC00006002           add.l    #$6002,A1 
FC349C 3211                   move.w   (A1),D1 
FC349E 5241                   addq.w   #1,D1 
FC34A0 9041                   sub.w    D1,D0 
FC34A2 6E04                   bgt      $FC34A8 
FC34A4 4240                   clr.w    D0 
FC34A6 6002                   bra      $FC34AA
FC34A8 7001                   moveq.l  #1,D0
FC34AA 33C000005624           move.w   D0,$5624                     Red level
FC34B0 303900005FE8           move.w   $5FE8,D0                     Green level
FC34B6 3247                   move.w   D7,A1 
FC34B8 D3C9                   add.l    A1,A1
FC34BA D3FC00006002           add.l    #$6002,A1
FC34C0 3211                   move.w   (A1),D1 
FC34C2 5241                   addq.w   #1,D1 
FC34C4 9041                   sub.w    D1,D0 
FC34C6 6E04                   bgt      $FC34CC 
FC34C8 4240                   clr.w    D0 
FC34CA 6002                   bra      $FC34CE 
FC34CC 7001                   moveq.l  #1,D0 
FC34CE 33C000005FE8           move.w   D0,$5FE8                     Green level 
FC34D4 303900004150           move.w   $4150,D0                     Blue level
FC34DA 3247                   move.w   D7,A1 
FC34DC D3C9                   add.l    A1,A1
FC34DE D3FC00006002           add.l    #$6002,A1
FC34E4 3211                   move.w   (A1),D1 
FC34E6 5241                   addq.w   #1,D1 
FC34E8 9041                   sub.w    D1,D0 
FC34EA 6E04                   bgt      $FC34F0 
FC34EC 4240                   clr.w    D0 
FC34EE 6002                   bra      $FC34F2 
FC34F0 7001                   moveq.l  #1,D0 
FC34F2 33C000004150           move.w   D0,$4150                     Blue level
FC34F8 303900005624           move.w   $5624,D0                     Red level
FC34FE E540                   asl.w    #2,D0                        times 4
FC3500 323900005FE8           move.w   $5FE8,D1                     Green level 
FC3506 E341                   asl.w    #1,D1                        times 2
FC3308 D041                   add.w    D1,D0                        Add to red level
FC350A D07900004150           add.w    $4150,D0                     Add blue level
FC3510 3247                   move.w   D7,A1                        
FC3312 D3C9                   add.l    A1,A1                        
FC3514 D3FC00005628           add.l    #$5628,A1 
FC351A 3280                   move.w   D0,(A1) 
FC351C 6050                   bra      $FC356E 
FC351E 303900005624           move.w   $5624,D0                     Red level
FC3524 C1FC001E               muls.w   #$1E,D0                      times 30, weighting 30 %
FC3528 323900005FE8           move.w   $5FE8,D1                     Green level
FC352E C3FC003B               muls.w   #$3B,D1                      times 59, weighting 59 %
FC3532 D041                   add.w    D1,D0                        
FC3534 323900004150           move.w   $4150,D1                     Blue level
FC353A C3FC000B               muls.w   #$B,D1                       times 11, weighting 11 %
FC353E D041                   add.w    D1,D0                        
FC3540 48C0                   ext.l    D0                           
FC3542 81FC0064               divs.w   #$64,D0                      divided by 100, scaling
FC3546 3247                   move.w   D7,A1 
FC3548 D3C9                   add.l    A1,A1 
FC354A D3FC00006002           add.l    #$6002,A1 
FC3550 3280                   move.w   D0,(A1) 
FC3552 3047                   move.w   D7,A0
FC3554 D1C8                   add.l    A0,A0 
FC3556 D1FC00005628           add.l    #$5628,A0 
FC355C 30BC0007               move.w   #7,(A0) 
FC3560 3047                   move.w   D7,A0
FC3562 D1C8                   add.l    A0,A0 
FC3564 D1FC00005760           add.l    #$5760,A0 
FC356A 30BC0008               move.w   #8,(A0) 
FC356E 602A                   bra      $FC359A 
FC3570 3047                   move.w   D7,A0
FC3572 D1C8                   add.l    A0,A0 
FC3574 D1FC00006002           add.l    #$6002,A0 
FC357A 30BC0008               move.w   #8,(A0) 
FC357E 3047                   move.w   D7,A0
FC3580 D1C8                   add.l    A0,A0
FC3582 D1FC00005628           add.l    #$5628,A0 
FC3588 30BC0007               move.w   #7,(A0) 
FC358C 3047                   move.w   D7,A0 
FC358E D1C8                   add.l    A0,A0 
FC3590 D1FC00005760           add.l    #$5760,A0 
FC3596 30BC0008               move.w   #8,(A0) 
FC359A 5247                   addq.w   #1,D7                        Next color
FC359C BE7C0010               cmp.w    #$10,D7                      16 colors?
FC35A0 6D00FD7A               blt      $FC331C                      No, next color
FC35A4 4A390000609A           tst.b    $609A                        Low resolution ?
FC35AA 6716                   beq      $FC35C2                      No
FC35AC 7004                   moveq.l  #4,D0                        Four points per screen point
FC35AE 33C000006022           move.w   D0,$6022                     
FC35B4 33C000005FF8           move.w   D0,$5FF8                     
FC35BA 33C0000056F8           move.w   D0,$56F8                     
FC35C0 6038                   bra      $FC35FA                      
FC35C2 4A3900005FE4           tst.b    $5FE4                        Medium resolution ? 
FC35C8 6718                   beq      $FC35E2                      No 
FC35CA 7002                   moveq.l  #2,D0                        2 points per screen point
FC35CC 33C000006022           move.w   D0,$6022 
FC35D2 33C0000056F8           move.w   D0,$56F8 
FC35D8 33FC000400005FF8       move.w   #4,$5FF8 
FC35E0 6018                   bra      $FC35FA 
FC35E2 33FC0001000056F8       move.w   #1,$56F8 
FC35EA 33FC000800005FF8       move.w   #8,$5FF8 
FC35F2 33FC000200006022       move.w   #2,$6022 
FC35FA 4A3900005780           tst.b    $5780                        Epson B/W dot matrix printer? 
FC3600 6706                   beq      $FC3608                      No
FC3602 3F3C0002               move.w   #2,-(A7) 
FC3606 6004                   bra      $FC360C 
FC3608 3F3C0001               move.w   #1,-(A7) 
FC360C 303900006022           move.w   $6022,D0
FC3612 4BC0                   ext.l    D0
FC3614 81DF                   divs.w   (A7)+,D0
FC3616 33C000006022           move.w   D0,$6022
FC361C 4240                   clr.w    D0
FC361E 3039000029C8           move.w   $29C8,D0                     p_left
FC3624 D079000029C4           add.w    $29C4,D0                     p_width 
FC362A D079000029CA           add.w    $29CA,D0                     p_right 
FC3630 C0F9000056F8           mulu.w   $56F8,D0
FC3636 E848                   lsr.w    #4,D0                        divided by 16 
FC3638 33C000005626           move.w   D0,$5626
FC363E 303900005626           move.w   $5626,D0
FC3644 C1F900005FF8           muls.w   $5FF8,D0
FC364A 33C000004E10           move.w   D0,$4E10
FC3650 2039000029BE           move.l   $29BE,D0                     p_blkptr, screen address 
FC3656 C0BCFFFFFFFE           and.l    #$FFFFFFFE,D0                Even address 
FC365C 23C000005648           move.l   D0,$5648                     save
FC3662 2039000029BE           move.l   $29BE,D0                     p_blkptr 
FC3668 B0B900005648           cmp.l    $5648,D0
FC366E 660A                   bne      $FC367A
FC3670 4240                   clr.w    D0
FC3672 3039000029C2           move.w   $29C2,D0                     p_offset 
FC3678 600A                   bra      $FC3684
FC367A 4240                   clr.w    D0
FC367C 3039000029C2           move.w   $29C2,D0                     p_offset 
FC3682 5040                   addq.w   #8,D0
FC3684 33C00000574C           move.w   D0,$574C
FC368A 13FC0001000060A0       move.b   #1,$60A0
FC3692 4279000016A8           clr.w    $16A8
FC3698 60000976               bra      $FC4010
FC369C 0C790001000004EE       cmp.w    #1,$4EE                      _dumpflg at one? 
FC36A4 6600097C               bne      $FC4022
FC36A8 4A3900004DBA           tst.b    $4DBA
FC36AE 6700018E               beq      $FC383E 
FC36B2 13FC0001000041B6       move.b   #1,$41B6 
FC36BA 4240                   clr.w    D0 
FC36BC 3039000029C4           move.w   $29C4,D0                     p_width
FC36C2 C0F9000056F8           mulu.w   $56F8,D0 
FC36C8 E848                   lsr.w    #4,D0 
FC36CA 9079000056F8           sub.w    $56F8,D0 
FC36D0 E348                   lsl.w    #1,D0 
FC36D2 4840                   swap     D0 
FC36D4 4240                   clr.w    D0 
FC36D6 4840                   swap     D0 
FC36D8 D0B900005648           add.l    $5648,D0 
FC36DE 23C000005FEA           move.l   D0,$5FEA 
FC36E4 700F                   moveq.l  #15,D0 
FC36E6 4241                   clr.w    D1 
FC36E8 3239000029C4           move.w   $29C4,D1                     p_width
FC36EE C27C000F               and.w    #$F,D1 
FC36F2 9041                   sub.w    D1,D0 
FC36F4 33C000006028           move.w   D0,$6028
FC36FA 33F9000029C400004DBC   move.w   $29C4,$4DBC                  p_width
FC3704 6000012C               bra      $FC3832

FC3708 4240                   clr.w    D0 
FC370A 3039000029C6           move.w   $29C6,D0                     p_height
FC3710 9079000016A8           sub.w    $16A8,D0 
FC3716 4840                   swap     D0 
FC3718 4240                   clr.w    D0 
FC371A 4840                   swap     D0 
FC371C 80F900005FF8           divu.w   $5FF8,D0 
FC3722 6708                   beq      $FC372C 
FC3724 303900005FF8           move.w   $5FF8,D0 
FC372A 600E                   bra      $FC373A
FC372C 4240                   clr.w    D0 
FC372E 3039000029C6           move.w   $29C6,D0                     p_height
FC3734 9079000016A8           sub.w    $16A8,D0 
FC373A 33C000005FE0           move.w   D0,$5FE0 
FC3740 23F900005FEA000058EC   move.l   $5FEA,$58EC 
FC374A 4247                   clr.w    D7 
FC374C 600000A6               bra      $FC37F4 
FC3750 427900006030           clr.w    $6030 
FC3756 33FC000100006024       move.w   #1,$6024
FC375E 23F9000058EC0000574E   move.l   $58EC,$574E 
FC3768 4246                   clr.w    D6 
FC376A 6030                   bra      $FC379C 
FC376C 20790000574E           move.l   $574E,A0 
FC3772 3010                   move.w   (A0),D0 
FC3774 720F                   moveq.l  #15,D1 
FC3776 927900006028           sub.w    $6028,D1 
FC377C E260                   asr.w    D1,D0 
FC377E C07C0001               and.w    #1,D0 
FC3782 C1F900006024           muls.w   $6024,D0 
FC3788 D17900006030           add.w    D0,$6030 
FC378E 54B90000574E           addq.l   #2,$574E 
FC3794 E1F900006024           asl.w    $6024 
FC379A 5246                   addq.w   #1,D6 
FC379C BC79000056F8           cmp.w    $56F8,D6 
FC37A2 6DC8                   blt      $FC376C 
FC37A4 4A3900005FE6           tst.b    $5FE6                        High resolution ? 
FC37AA 671A                   beq      $FC37C6                      No
FC37AC 303900006030           move.w   $6030,D0 
FC37B2 32390000608C           move.w   $608C,D1 
FC37B8 B340                   eor.w    D1,D0 
FC37BA 6608                   bne      $FC37C4 
FC37BC 4239000041B6           clr.b    $41B6
FC37C2 603A                   bra      $FC37FE 
FC37C4 601C                   bra      $FCS7E2 
FC37C6 307900006030           move.w   $6030,A0 
FC37CC D1C8                   add.l    A0,A0 
FC37CE D1FC00006002           add.l    #$6002,A0 
FC37D4 0C500008               cmp.w    #8,(A0) 
FC37D8 6708                   beq      $FC37E2 
FC37DA 4239000041B6           clr.b    $41B6 
FC37E0 601C                   bra      $FC37FE 
FC37E2 303900005626           move.w   $5626,D0 
FC37E8 E340                   asl.w    #1,D0 
FC37EA 48C0                   ext.l    D0
FC37EC D1B9000058EC           add.l    D0,$58EC 
FC37F2 5247                   addq.w   #1,D7 
FC37F4 BE7900005FE0           cmp.w    $5FE0,D7 
FC37FA 6D00FF54               blt      $FC3750 
FC37FE 4A39000041B6           tst.b    $41B6 
FC3804 6736                   beq      $FC383C 
FC3806 537900006028           subq.w   #1,$6028 
FC380C 4A7900006028           tst.w    $6028 
FC3812 6C18                   bge      $FC382C 
FC3814 3039000056F8           move.w   $56F8,D0 
FC381A E340                   asl.w    #1,D0
FC381C 48C0                   ext.l    D0
FC381E 91B900005FEA           sub.l    D0,$5FEA 
FC3824 33FC000F00006028       move.w   #$F,$6028 
FC382C 537900004DBC           subq.w   #1,$4DBC 
FC3832 4A7900004DBC           tst.w    $4DBC 
FC3838 6E00FECE               bgt      $FC3708 
FC383C 600A                   bra      $FC3848 
FC383E 33F9000029C400004DBC   move.w   $29C4,$4DBC                  p_width 
FC3848 3E3900004DBC           move.w   $4DBC,D7
FC384E CFF900006022           muls.w   $6022,D7 
FC3854 4A3900005780           tst.b    $5780                        Epson B/W dot-matrix printer?
FC385A 670A                   beq      $FC3866                      No
FC385C 3007                   move.w   D7,D0
FC385E 48C0                   ext.l    D0
FC3860 81FC0002               divs.w   #2,D0 
FC3864 6002                   bra      $FC3868 
FC3866 4240                   clr.w    D0
FC3868 DE40                   add.w    D0,D7 
FC386A 3007                   move.w   D7,D0                        Number of points
FC386C 48C0                   ext.l    D0                           
FC386E 81FC0100               divs.w   #$100,D0                     divided by 256
FC3872 4840                   swap     D0                           remainder
FC3874 13C000004E16           move.b   D0,$4E16                     Number of points, low byte 
FC387A 3007                   move.w   D7,D0                        Number of points
FC387C 48C0                   ext.l    D0                           
FC387E 81FC0100               divs.w   #$100,D0                     divided by 256 
FC3882 13C000004E18           move.b   D0,$4E18                     Number of points, high byte
FC3888 427900005782           clr.w    $5782 
FC388E 60000656               bra      $FC3EE6 
FC3892 4279000060A2           clr.w    $60A2 
FC3898 600005F0               bra      $FC3E8A 
FC389C 4A390000575E           tst.b    $575E                        ATARI color dot-matrix printer?
FC38A2 67000076               beq      $FC391A                      No
FC38A6 4A3900005FE6           tst.b    $5FE6                        High resolution ?
FC38AC 6600006C               bne      $FC391A                      Yes
FC38B0 4A79000060A2           tst.w    $60A2                        
FC38B6 661E                   bne      $FC38D6                      
FC38B8 2EBC00FD1BBE           move.l   #$FD1BBE,(A7)                ESC 'X', 6 
FC38BE 610007E4               bsr      $FC40A4                      Send string to printer 
FC38C2 4A40                   tst.w    D0                           Output. OK?
FC38C4 670E                   beq      $FC38D4                      Yes
FC38C6 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC38CE 70FF                   moveq.l  #-1,D0                       Flag for error
FC38D0 6000077C               bra      $FC404E                      Terminate

FC38D4 6044                   bra      $FC391A

FC38D6 0C790001000060A2       cmp.w    #1,$60A2 
FC38DE 661E                   bne      $FC38FE 
FC38E0 2EBC00FD1BC3           move.l   #$FD1BC3,(A7)                ESC 'X', 5
FC38E6 610007BC               bsr      $FC40A4                      Send string to printer
FC38EA 4A40                   tst.w    D0                           Output OK?
FC38EC 670E                   beq      $FC38FC                      Yes
FC38EE 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC38F6 70FF                   moveq.l  #-1,D0                       Flag for error 
FC38F8 60000754               bra      $FC404E                      Terminate

FC38FC 601C                   bra      $FC391A

FC38FE 2EBC00FD1BC8           move.l   #$FD1BC8,(A7)                ESC 'X', 3
FC3904 6100079E               bsr      $FC40A4                      Send string to printer
FC3908 4A40                   tst.w    D0                           Output OK?
FC390A 670E                   beq      $FC391A                      Yes
FC390C 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC3914 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3916 60000736               bra      $FC404E                      Terminate

FC391A 4A3900005780           tst.b    $5780                        Epson B/W dot-matrix printer? 
FC3920 6708                   beq      $FC392A                      No 
FC3922 2EBC00FD1BCD           move.l   #$FD1BCD,(A7)                ESC 'L', bit image 960 dots/line
FC3928 6006                   bra      $FC3930
FC392A 2EBC00FD1BD1           move.l   #$FD1BD1,(A7)                ESC 'Y', bit image 1280 dots/line
FC3930 61000772               bsr      $FC40A4                      Send string to printer
FC3934 4A40                   tst.w    D0                           Output OK?
FC3936 670E                   beq      $FC3946                      Yes
FC3938 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3940 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3942 6000070A               bra      $FC404E                      Terminate

FC3946 103900004E16           move.b   $4E16,D0                     Number of points, low-byte
FC394C 4880                   ext.w    D0                           
FC394E 3E80                   move.w   D0,(A7)                      
FC3950 61000706               bsr      $FC4058                      Output character 
FC3954 4A40                   tst.w    D0                           Output OK ?
FC3956 670E                   beq      $FC3966                      Yes
FC3958 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3960 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3962 600006EA               bra      $FC404E                      Terminate

FC3966 103900004E18           move.b   $4E18,D0                     Number of points, high-byte
FC396C 4880                   ext.w    D0                           
FC396E 3E80                   move.w   D0,(A7)                      
FC3970 610006E6               bsr      $FC4058                      Output character 
FC3974 4A40                   tst.w    D0                           Output OK?
FC3976 670E                   beq      $FC3986                      Yes
FC3978 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3980 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3982 600006CA               bra      $FC404E                      Terminate

FC3986 13FC000100006000       move.b   #1,$6000 
FC398E 23F90000564800005FEA   move.l   $5648,$5FEA 
FC3998 33F90000574C00006028   move.w   $574C,$6028
FC39A2 4279000016A6           clr.w    $16A6 
FC39A8 600004B0               bra      $FC3E5A

FC39AC 4247                   clr.w    D7 
FC39AE 600C                   bra      $FC39BC

FC39B0 3047                   move.w   D7,A0 
FC39B2 D1FC00005784           add.l    #$5784,A0 
FC39B8 4210                   clr.b    (A0) 
FC39BA 5247                   addq.w   #1,D7 
FC39BC BE7C0008               cmp.w    #8,D7 
FC39C0 6DEE                   blt      $FC39B0 
FC39C2 4247                   clr.w    D7 
FC39C4 601E                   bra      $FC39E4

FC39C6 3047                   move.w   D7,A0
FC39C8 D1C8                   add.l    A0,A0 
FC39CA D1FC00004E1A           add.l    #$4E1A,A0 
FC39D0 30BC0007               move.w   #7,(A0) 
FC39D4 3047                   move.w   D7,A0
FCS9D6 D1C8                   add.l    A0,A0 
FC39D8 D1FC00005FEE           add.l    #$5FEE,A0 
FC39DE 30BC0008               move.w   #8,(A0) 
FC39E2 5247                   addq.w   #1,D7 
FC39E4 BE7C0004               cmp.w    #4,D7 
FC39E8 6DDC                   blt      $FC39C6 
FC39EA 4240                   clr.w    D0 
FC39EC 3039000029C6           move.w   $29C6,D0                     p_height
FC39F2 9079000016A8           sub.w    $16A8,D0 
FC39F8 4840                   swap     D0 
FC39FA 4240                   clr.w    D0 
FC39FC 4840                   swap     D0
FC39FE 80F900005FF8           divu.w   $5FF8,D0 
FC3A04 6708                   beq      $FC3A0E 
FC3A06 303900005FF8           move.w   $5FF8,D0 
FC3A0C 600E                   bra      $FC3A1C

FC3A0E 4240                   clr.w    D0 
FC3A10 3039000029C6           move.w   $29C6,D0                     p_height
FC3A16 9079000016A8           sub.w    $16A8,D0 
FC3A1C 33C000005FE0           move.w   D0,$5FE0 
FC3A22 4240                   clr.w    D0 
FC3A24 3039000029C6           move.w   $29C6,D0                     p_height
FC3A2A 9079000016A8           sub.w    $16A8,D0 
FC3A30 4840                   swap     D0
FC3A32 4240                   clr.w    D0
FC3A34 4840                   swap     D0 
FC3A36 80F900005FF8           divu.w   $5FF8,D0 
FC3A3C 670C                   beq      $FC3A4A 
FC3A3E 33F900005FF800005FE0   move.w   $5FF8,$5FE0 
FC3A48 601A                   bra      $FC3A64 

FC3A4A 4240                   clr.w    D0
FC3A4C 3039000029C6           move.w   $29C6,D0                     p_height
FC3A52 9079000016A8           sub.w    $16A8,D0 
FC3A58 33C000005FE0           move.w   D0,$5FE0 
FC3A5E 4239000060A0           clr.b    $60A0 
FC3A64 23F900005FEA000058EC   move.l   $5FEA,$58EC 
FC3A6E 4247                   clr.w    D7
FC3A70 6000011C               bra      $FC3B8E

FC3A74 427900006030           clr.w    $6030 
FC3A7A 33FC000100006024       move.w   #1,$6024 
FC3A82 23F9000058EC0000574E   move.l   $58EC,$574E
FC3A8C 4246                   clr.w    D6 
FC3A8E 6030                   bra      $FC3AC0 

FC3A90 20790000574E           move.l   $574E,A0 
FC3A96 3010                   move.w   (A0),D0 
FC3A98 720F                   moveq.l  #15,D1 
FC3A9A 927900006028           sub.w    $6028,D1 
FC3AA0 E260                   asr.w    D1,D0 
FC3AA2 C07C0001               and.w    #1,D0 
FC3AA6 C1F900006024           muls.w   $6024,D0 
FC3AAC D17900006030           add.w    D0,$6030 
FC3AB2 54B90000574E           addq.l   #2,$574E 
FC3AB8 E1F900006024           asl.w    $6024 
FC3ABE 5246                   addq.w   #1,D6 
FC3AC0 BC79000056F8           cmp.w    $56F8,D6 
FC3AC6 6DC8                   blt      $FC3A90 
FC3AC8 4A3900005FE6           tst.b    $5FE6                        High resolution ?
FC3ACE 672C                   beq      $FC3AFC                      No
FC3AD0 303900006030           move.w   $6030,D0 
FC3AD6 32390000608C           move.w   $608C,D1 
FC3ADC B340                   eor.w    D1,D0 
FC3ADE 660C                   bne      $FC3AEC 
FC3AE0 2079000029D8           move.l   $29D8,A0                     p_masks, address of half-tone mask
FC3AE6 1010                   move.b   (A0),D0 
FC3AE8 4880                   ext.w    D0 
FC3AEA 6002                   bra      $FC3AEE

FC3AEC 4240                   clr.w    D0 
FC3AEE 3247                   move.w   D7,A1 
FC3AF0 D3FC00005784           add.l    #$5784,A1 
FC3AF6 1280                   move.b   D0,(A1) 
FC3AF8 60000082               bra      $FC3B7C
FC3AFC 3047                   move.w   D7,A0 
FC3AFE D0C8                   add.w    A0,A0 
FC3B00 D1FC00005784           add.l    #$5784,A0 
FC3B06 327900006030           move.w   $6030,A1 
FC3B0C D3C9                   add.l    A1,A1 
FC3B0E D3FC00006002           add.l    #$6002,A1 
FC3B14 3251                   move.w   (A1),A1 
FC3B16 D2C9                   add.w    A1,A1 
FC3B18 D3F9000029D8           add.l    $29D8,A1                     plus p_masks
FC3B1E 1091                   move.b   (A1),(A0) 
FC3B20 3047                   move.w   D7,A0
FC3B22 D0C8                   add.w    A0,A0 
FC3B24 D1FC00005784           add.l    #$5784,A0 
FC3B2A 327900006030           move.w   $6030,A1 
FC3B30 D3C9                   add.l    A1,A1 
FC3B32 D3FC00006002           add.l    #$6002,A1 
FC3B38 3251                   move.w   (A1),A1 
FC3B3A D2C9                   add.w    A1,A1 
FC3B3C D3F9000029D8           add.l    $29D8,A1                     plus p_masks
FC3B42 116900010001           move.b   1(A1),1(A0) 
FC3B48 3047                   move.w   D7,A0
FC3B4A D1C8                   add.l    A0,A0 
FC3B4C D1FC00004E1A           add.l    #$4E1A,A0 
FC3B52 327900006030           move.w   $6030,A1 
FC3B58 D3C9                   add.l    A1,A1 
FC3B5A D3FC00005628           add.l    #$5628,A1 
FC3B60 3091                   move.w   (A1),(A0) 
FC3B62 3047                   move.w   D7,A0 
FC3B64 D1C8                   add.l    A0,A0 
FC3B66 D1FC00005FEE           add.l    #$5FEE,A0 
FC3B6C 327900006030           move.w   $6030,A1 
FC3B72 D3C9                   add.l    A1,A1
FC3B74 D3FC00005760           add.l    #$5760,A1 
FC3B7A 3091                   move.w   (A1),(A0) 
FC3BFC 303900005626           move.w   $5626,D0 
FC3B82 E340                   asl.w    #1,D0
FC3B84 48C0                   ext.l    D0 
FC3B86 D1B9000058EC           add.l    D0,$58EC 
FC3B8C 5247                   addq.w   #1,D7 
FC3B8E BE7900005FE0           cmp.w    $5FE0,D7 
FC3B94 6D00FEDE               blt      $FC3A74 
FC3B98 4A390000575E           tst.b    $575E                        ATARI color dot-matrix printer? 
FC3B9E 670001BE               beq      $FC3D5E                      No
FC3BA2 4A3900005FE6           tst.b    $5FE6                        High resolution ?
FC3BA8 660001B4               bne      $FC3D5E                      Yes
FC3BAC 4247                   clr.w    D7 
FC3BAE 600001A4               bra      $FC3D54

FC3BB2 423900005FF6           clr.b    $5FF6 
FC3BB8 4A79000060A2           tst.w    $60A2 
FC3BBE 6626                   bne      $FC3BE6 
FC3BC0 3047                   move.w   D7,A0 
FC3BC2 D1C8                   add.l    A0,A0 
FC3BC4 227C00004E1A           move.l   #$4E1A,A1 
FC3BCA 30309800               move.w   0(A0,A1.l),D0 
FC3BCE 48C0                   ext.l    D0 
FC3BD0 81FC0002               divs.w   #2,D0 
FC3BD4 4840                   swap     D0 
FC3BD6 4A40                   tst.w    D0 
FC3BD8 6708                   beq      $FC3BE2 
FC3BDA 13FC000100005FF6       move.b   #1,$5FF6 
FC3BE2 600000F0               bra      $FC3CD4 

FC3BE6 0C790001000060A2       cmp.w    #1,560A2
FC3BEE 6600008C               bne      $FC3C7C 
FC3BF2 3047                   move.w   D7,A0 
FC3BF4 D1C8                   add.l    A0,A0 
FC3BE6 D1FC00004E1A           add.l    #$4E1A,A0 
FC3BFC 0C500006               cmp.w    #6,(A0) 
FC3C00 6630                   bne      $FC3C32 
FC3C02 3047                   move.w   D7,A0
FC3C04 D1C8                   add.l    A0,A0 
FC3C06 D1FC00005FEE           add.l    #$5FEE,A0 
FC3C0C 0C500008               cmp.w    #8,(A0) 
FC3C10 6C20                   bge      $FC3C32 
FC3C12 3047                   move.w   D7,A0
FC3C14 D0C8                   add.w    A0,A0 
FC3C16 D1FC00005784           add.l    #$5784,A0 
FC3C1C 02100001               and.b    #1,(A0) 
FC3C20 3047                   move.w   D7,A0
FC3C22 D0C8                   add.w    A0,A0 
FC3C24 D1FC00005784           add.l    #$5784,A0 
FC3C2A 022800040001           and.b    #4,1(A0) 
FC3C30 6048                   bra      $FC3C7A 

FC3C32 3047                   move.w   D7,A0
FC3C34 D1C8                   add.l    A0,A0 
FC3C36 D1FC00004E1A           add.l    #$4E1A,A0 
FC3C3C 0C500002               cmp.w    #2,(A0) 
FC3C40 6730                   beq      $FC3C72 
FC3C42 3047                   move.w   D7,A0
FC3C44 D1C8                   add.l    A0,A0 
FC3C46 D1FC00004E1A           add.l    #$4E1A,A0 
FC3C4C 0C500003               cmp.w    #3,(A0) 
FC3C50 6720                   beq      $FC3CI2 
FC3C52 3047                   move.w   D7,A0
FC3C54 D1C8                   add.l    A0,A0 
FC3C56 D1FC00004E1A           add.l    #$4E1A,A0 
FC3C5C 0C500006               cmp.w    #6,(A0) 
FC3C60 6710                   beq      $FC3C72 
FC3C62 3047                   move.w   D7,A0
FC3C64 D1C8                   add.l    A0,A0 
FC3C66 D1FC00004E1A           add.l    #$4E1A,A0 
FC3C6C 0C500007               cmp.w    #7,(A0) 
FC3C70 6608                   bne      $FC3C7A 
FC3C72 13FC000100005FF6       move.b   #1,$5FF6 
FC3C7A 6058                   bra      $FC3CD4 

FC3C7C 3047                   move.w   D7,A0
FC3C7E D1C8                   add.l    A0,A0 
FC3C80 D1FC00004E1A           add.l    #$4E1A,A0 
FC3C86 0C500006               cmp.w    #6,(A0) 
FC3C8A 6630                   bne      $FC3CBC 
FC3C8C 3047                   move.w   D7,A0
FC3C8E D1C8                   add.l    A0,A0 
FC3C90 D1FC00005FEE           add.l    #$5FEE,A0 
FC3C96 0C500008               cmp.w    #8,(A0) 
FC3C9A 6C20                   bge      $FC3CBC 
FC3C9C 3047                   move.w   D7,A0
FC3C9E D0C8                   add.w    A0,A0 
FC3CA0 D1FC00005784           add.l    #$5784,A0 
FC3CA6 02100004               and.b    #4,(A0) 
FC3CAA 3047                   move.w   D7,A0
FC3CAC D0C8                   add.w    A0,A0 
FC3CAE D1FC00005784           add.l    #$5784,A0 
FC3CB4 022800010001           and.b    #1,1(A0) 
FC3CBA 6018                   bra      $FC3CD4
FC3CBC 3047                   move.w   D7,A0 
FC3CBE D1C8                   add.l    A0,A0 
FC3CC0 D1FC00004E1A           add.l    #$4E1A,A0 
FC3CC6 0C500003               cmp.w    #3,(A0) 
FC3CCA 6F08                   ble      $FC3CD4 
FC3CCC 13FC000100005FF6       move.b   #1,$5FF6 
FC3CD4 4A3900005FF6           tst.b    $5FF6 
FC3CDA 671A                   beq      $FC3CF6 
FC3CDC 3047                   move.w   D7,A0
FC3CDE D0C8                   add.w    A0,A0 
FC3CE0 D1FC00005784           add.l    #$5784,A0 
FC3CE6 4210                   clr.b    (A0) 
FC3CE8 3047                   move.w   D7,A0
FC3CEA D0C8                   add.w    A0,A0 
FC3CEC D1FC00005784           add.l    #$5784,A0 
FC3CF2 42280001               clr.b    1(A0) 
FC3CF6 2079000029D8           move.l   $29D8,A0                     p_masks
FC3CFC 3247                   move.w   D7,A1 
FC3CFE D3C9                   add.l    A1,A1 
FC3D00 D3FC00005FEE           add.l    #$5FEE,A1 
FC3D06 3251                   move.w   (A1),A1 
FC3D08 D2C9                   add.w    A1,A1 
FC3D0A 10309000               move.b   0(A0,A1.w),D0 
FC3D0E 4880                   ext.w    D0 
FC3D10 3F00                   move.w   D0,-(A7) 
FC3D12 3047                   move.w   D7,A0 
FC3D14 D0C8                   add.w    A0,A0 
FC3D16 D1FC00005784           add.l    #$5784,A0 
FC3D1C 1010                   move.b   (A0),D0 
FC3D1E 805F                   or.w     (A7)+,D0 
FC3D20 1080                   move.b   D0,(A0) 
FC3D22 2079000029D8           move.l   $29D8,A0                     p_masks
FC3D28 3247                   move.w   D7,A1 
FC3D2A D3C9                   add.l    A1,A1 
FC3D2C D3FC00005FEE           add.l    #$5FEE,A1 
FC3D32 3251                   move.w   (A1),A1 
FC3D34 D2C9                   add.w    A1,A1 
FC3D36 10309001               move.b   1(A0,A1.w),D0 
FC3D3A 4880                   ext.w    D0 
FC3D3C 3F00                   move.w   D0,-(A7) 
FC3D3E 3047                   move.w   D7,A0
FC3D40 D0C8                   add.w    A0,A0 
FC3D42 D1FC00005784           add.l    #$5784,A0 
FC3D48 10280001               move.b   1(A0),D0 
FC3D4C 805F                   or.w     (A7)+,D0 
FC3D4E 11400001               move.b   D0,1(A0) 
FC3D52 5247                   addq.w   #1,D7 
FC3D54 BE7900005FE0           cmp.w    $5FE0,D7 
FC3D5A 6D00FE56               blt      $FC3BB2 
FC3D5E 7E04                   moveq.l  #4,D7 
FC3D60 6000008E               bra      $FC3DF0

FC3D64 42390000414C           clr.b    $414C 
FC3D6A 33FC008000006026       move.w   #$80,$6026 
FC3D72 4246                   clr.w    D6 
FC3D74 603E                   bra      $FC3DB4 

FC3D76 207C00005784           move.l   #$5784,A0 
FC3D7C 10306000               move.b   0(A0,D6.w),D0 
FC3D80 4880                   ext.w    D0 
FC3D82 7207                   moveq.l  #7,D1 
FC3D84 9247                   sub.w    D7,D1 
FC3D86 E260                   asr.w    D1,D0 
FC3D88 C07C0001               and.w    #1,D0
FC3D8C C1F900006026           muls.w   $6026,D0 
FC3D92 12390000414C           move.b   $414C,D1 
FC3D98 D200                   add.b    D0,D1 
FC3D9A 13C10000414C           move.b   D1,$414C 
FC3DA0 303900006026           move.w   $6026,D0 
FC3DA6 48C0                   ext.l    D0
FC3DA8 81FC0002               divs.w   #2,D0 
FC3DAC 33C000006026           move.w   D0,$6026 
FC3DB2 5246                   addq.w   #1,D6 
FC3DB4 BC7C0008               cmp.w    #8,D6 
FC3DB8 6DBC                   blt      $FC3D76 
FC3DBA 10390000414C           move.b   $414C,D0 
FC3DC0 4880                   ext.w    D0
FC3DC2 3E80                   move.w   D0,(A7) 
FC3DC4 61000292               bsr      $FC4058                      Output character
FC3DC8 4A40                   tst.w    D0                           Output OK?
FC3DCA 670E                   beq      $FC3DDA                      Yes
FC3DCC 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3DD4 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3DD6 60000276               bra      $FC404E                      Terminate

FC3DDA 4A3900006000           tst.b    $6000 
FC3DE0 6704                   beq      $FC3DE6 
FC3DE2 4240                   clr.w    D0 
FC3DE4 6002                   bra      $FC3DE8 

FC3DE6 7001                   moveq.l  #1,D0 
FC3DE8 13C000006000           move.b   D0,$6000 
FC3DEE 5247                   addq.w   #1,D7 
FC3DF0 303900006022           move.w   $6022,D0 
FC3DF6 5840                   addq.w   #4,D0 
FC3DF8 BE40                   cmp.w    D0,D7
FC3DFA 6D00FF68               blt      $FC3D64 
FC3DFE 4A3900005780           tst.b    $5780                        Epson B/W dot-matrix printer? 
FC3E04 6728                   beq      $FC3E2E                      No
FC3E06 4A3900006000           tst.b    $6000 
FC3E0C 6720                   beq      $FC3E2E 
FC3E0E 10390000414C           move.b   $414C,D0 
FC3E14 4880                   ext.w    D0
FC3E16 3E80                   move.w   D0,(A7) 
FC3E18 6100023E               bsr      $FC4058                      Output character
FC3E1C 4A40                   tst.w    D0                           Output OK?
FC3E1E 670E                   beq      $FC3E2E                      Yes
FC3E20 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3E28 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3E2A 60000222               bra      $FC404E                      Terminate

FC3E2E 527900006028           addq.w   #1,$6028 
FC3E34 0C79000F00006028       cmp.w    #15,$6028 
FC3S3C 6F16                   ble      $FC3E54 
FC3E3E 3039000056F8           move.w   $56F8,D0 
FC3E44 E340                   asl.w    #1,D0 
FC3E46 48C0                   ext.l    D0
FC3E48 D1B900005FEA           add.l    D0,$5FEA 
FC3E4E 427900006028           clr.w    $6028 
FC3E54 5279000016A6           addq.w   #1,$16A6 
FC3E5A 3039000016A6           move.w   $16A6,D0 
FC3E60 B07900004DBC           cmp.w    $4DBC,D0 
FC3E66 6D00FB44               blt      $FC39AC 
FC3E6A 3EBC000D               move.w   #$D,(A7)                     Carriage Return 
FC3E6E 610001E8               bsr      $FC4058                      Output character
FC3E72 4A40                   tst.w    D0                           Output OK?
FC3E74 670E                   beq      $FC3E84                      Yes
FC3E76 33FCFFFF000004EE       move.w   #-1,54EE                     Clear _dumpflg
FC3E7E 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3E80 600001CC               bra      $FC404E                      Terminate

FC3E84 5279000060A2           addq.w   #1,$60A2                     
FC3E8A 4A390000575E           tst.b    $575E                        ATARI color dot-matrix printer?
FC3E90 670C                   beq      $FC3E9E                      No
FC3E92 4A3900005FE6           tst.b    $5FE6                        High resolution ?
FC3E98 6604                   bne      $FC3E9E                      Yes
FC3E9A 7003                   moveq.l  #3,D0                        
FC3E9C 6002                   bra      $FC3EA0                      

FC3E9E 7001                   moveq.l  #1,D0                        
FC3EA0 B079000060A2           cmp.w    $60A2,D0                     
FC3EA6 6E00F9F4               bgt      $FC389C                      
FC3EAA 2EBC00FD1BD5           move.l   #$FD1BD5,(A7)                ESC '3', 1, 1/216" line spacing
FC3EB0 610001F2               bsr      $FC40A4                      Send string to printer
FC3EB4 4A40                   tst.w    D0                           Output OK?
FC3EB6 670E                   beq      $FC3EC6                      Yes
FC3EB8 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3EC0 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3EC2 6000018A               bra      $FC404E                      Terminate

FC3EC6 3EBC000A               move.w   #$A,(A7)                     Linefeed
FC3ECA 6100018C               bsr      $FC4058                      Output character 
FC3ECE 4A40                   tst.w    D0                           Output OK?
FC3ED0 670E                   beq      $FC3EE0                      Yes
FC3ED2 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3EDA 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3EDC 60000170               bra      $FC404E                      Terminate

FC3EE0 527900005782           addq.w   #1,$5782                     
FC3EE6 4A3900005FFE           tst.b    $5FFE                        Quality mode?
FC3EEC 6704                   beq      $FC3EF2                      Yes
FC3EEE 7001                   moveq.l  #1,D0 
FC3EF0 6002                   bra      $FC3EF4 

FC3EF2 7002                   moveq.l  #2,D0 
FC3EF4 B07900005782           cmp.w    $5782,D0 
FC3EFA 6E00F996               bgt      $FC3892 
FC3EFE 4A3900005FFE           tst.b    $5FFE                        Quality mode? 
FC3F04 674E                   beq      $FC3F54                      Yes
FC3F06 4247                   clr.w    D7 
FC3F08 6038                   bra      $FC3F42

FC3F0A 2EBC00FD1BDA           move.l   #$FD1BDA,(A7)                ESC '3', 1, 1/216" 1ine spacing
FC3F10 61000192               bsr      $FC40A4                      Send string to printer
FC3F14 4A40                   tst.w    D0                           Output OK?
FC3F16 670E                   beq      $FC3F26                      Yes
FC3F18 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3F20 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3F22 6000012A               bra      $FC404E                      Terminate

FC3F26 3EBC000A               move.w   #$A,(A7)                     Linefeed
FC3F2A 6100012C               bsr      $FC4058                      Output character 
FC3F2E 4A40                   tst.w    D0                           Output OK?
FC3F30 670E                   beq      $FC3F40                      Yes
FC3F32 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3F3A 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3F3C 60000110               bra      $FC404E                      Terminate

FC3F40 5247                   addq.w   #1,D7                        
FC3F42 4A3900005780           tst.b    $5780                        Epson B/W dot-matrix printer?
FC3F48 6704                   beq      $FC3F4E                      No
FC3F4A 7002                   moveq.l  #2,D0 
FC3F4C 6002                   bra      $FC3F50 

FC3F4E 7001                   moveq.l  #1,D0 
FC3F50 BE40                   cmp.w    D0,D7 
FC3F52 6DB6                   blt      $FC3F0A 
FC3F54 4A39000060A0           tst.b    $60A0 
FC3F5A 6738                   beq      $FC3F94 
FC3F5C 2EBC00FD1BDF           move.l   #$FD1BDF,(A7)                ESC '1', 7/72" Line spacing
FC3F62 61000140               bsr      $FC40A4                      Send string to printer 
FC3F66 4A40                   tst.w    D0                           Output OK?
FC3F68 670E                   beq      $FC3F78                      Yes
FC3F6A 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC3F72 70FF                   moveq.l  #-1,D0                       Flag for error
FC3F74 600000D8               bra      $FC404E                      Terminate

FC3F78 3EBC000A               move.w   #$A,(A7)                     Linefeed
FC3F7C 610000DA               bsr      $FC4058                      Output character 
FC3F80 4A40                   tst.w    D0                           Output OK?
FC3F82 670E                   beq      $FC3F92                      Yes
FC3F84 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3F8C 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3F8E 600000BE               bra      $FC404E                      Terminate

FC3F92 6060                   bra      $FC3FF4 

FC3F94 4247                   clr.w    D7 
FC3F96 6038                   bra      $FC3FD0 

FC3F98 2EBC00FD1BE3           move.l   #$FD1BE3,(A7)                ESC '3', 1, 1/216" line spacing
FC3F9E 61000104               bsr      $FC40A4                      Send string to printer
FC3FA2 4A40                   tst.w    D0                           Output OK?
FC3FA4 670E                   beq      $FC3FB4                      Yes
FC3FA6 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3FAE 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3FB0 6000009C               bra      $FC404E                      Terminate 

FC3FB4 3EBC000A               move.w   #$A,(A7)                     Linefeed 
FC3FB8 6100009E               bsr      $FC4058                      Output character 
FC3FBC 4A40                   tst.w    D0                           Output OK? 
FC3FBE 670E                   beq      $FC3FCE                      Yes
FC3FC0 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg 
FC3FC8 70FF                   moveq.l  #-1,D0                       Flag for error 
FC3FCA 60000082               bra      $FC404E                      Terminate 

FC3FCE 5247                   addq.w   #1,D7
FC3FD0 4A3900005780           tst.b    $5780                        Epson B/W dot-matrix printer? 
FC3FD6 670E                   beq      $FC3FE6                      No
FC3FD8 303900005FE0           move.w   $5FE0,D0
FC3FDE C1FC0006               muls.w   #6,D0
FC3FE2 5740                   subq.w   #3,D0
FC3FE4 600A                   bra      $FC3FF0

FC3FE6 303900005FE0           move.w   $5FE0,D0
FC3FEC E540                   asl.w    #2,D0
FC3FEE 5540                   subq.w   #2,D0
FC3FF0 BE40                   cmp.w    D0,D7
FC3FF2 6DA4                   blt      $FC3F98
FC3FF4 303900004E10           move.w   $4E10,D0
FC3FFA E340                   asl.w    #1,D0
FC3FFC 48C0                   ext.l    D0
FC3FFE D1B900005648           add.l    D0,$5648
FC4004 303900005FF8           move.w   $5FF8,D0
FC400A D179000016A8           add.w    D0,$16A8
FC4010 4240                   clr.w    D0 
FC4012 3039000029C6           move.w   $29C6,D0                     p_height
FC4018 B079000016A8           cmp.w    $16A8,D0 
FC401E 6200F67C               bhi      $FC369C 
FC4022 2EBC00FD1BE8           move.l   #$FD1BE8,(A7)                ESC '2', 1/6" line spacing
FC4028 6100007A               bsr      $FC40A4                      Send string to printer
FC402C 4A390000575E           tst.b    $575E                        ATARI color dot-matrix printer?
FC4032 6710                   beq      $FC4044                      No
FC4034 4A3900005FE6           tst.b    $5FE6                        High resolution ?
FC403A 6608                   bne      $FC4044                      Yes
FC403C 2EBC00FD1BEC           move.l   #$FD1BEC,(A7)                ESC 'X', 0
FC4042 6160                   bsr      $FC40A4                      Send string to printer
FC4044 33FCFFFF000004EE       move.w   #-1,$4EE                     Clear _dumpflg
FC404C 4240                   clr.w    D0                           OK
FC404E 4A9F                   tst.l    (A7)+
FC4050 4CDF30C0               movem.l  (A7)+,D6-D7/A4-A5            Restore registers
FC4054 4E5E                   unlk     A6
FC4056 4E75                   rts

*****************************************************************   Output character to printer 
FC4058 4E56FFFC               link     A6,#-4 
FC405C 4A39000029BC           tst.b    $29BC                        Printer port
FC4062 6722                   beq      $FC4086                      RS 232 ?
FC4064 102E0009               move.b   9(A6),D0                     Get character
FC4068 4880                   ext.w    D0                           
FC406A 3E80                   move.w   D0,(A7)                      on the stack
FC406C 102E0009               move.b   9(A6),D0                     
FC4070 4880                   ext.w    D0                           
FC4072 3F00                   move.w   D0,-(A7)                     (again ?) 
FC4074 4EB900FC40E4           jsr      $FC40E4                      Output character to printer
FC407A 548F                   addq.l   #2,A7                        
FC407C 4A40                   tst.w    D0                           OK ?
FC407E 6604                   bne      $FC4084                      Yes
FC4080 70FF                   moveq.l  #-1,D0                       Flag for error 
FC4082 601C                   bra      $FC40A0                      Terminate
                                                                    
FC4084 6018                   bra      $FC409E                      OK 
FC4086 102E0009               move.b   9(A6),D0                     Get character
FC408A 4880                   ext.w    D0                           
FC408C 3E80                   move.w   D0,(A7)                      on stack
FC408E 102E0009               move.b   9(A6),D0                     
FC4092 4880                   ext.w    D0                           
FC4094 3F00                   move.w   D0,-(A7)                     (again ?) 
FC4096 4EB900FC4112           jsr      $FC4112                      RS 232 output
FC409C 548F                   addq.l   #2,A7                        
FC409E 4240                   clr.w    D0                           OK
FC40A0 4E5E                   unlk     A6                           
FC40A2 4E75                   rts                                   

*****************************************************************   Send string to printer
FC40A4 4E56FFFC               link     A6,#-4                       
FC40A8 6018                   bra      $FC40C2                      

FC40AA 206E0008               move.l   8(A6),A0                     String address 
FC40AE 1010                   move.b   (A0),D0                      Character of the string
FC40B0 4880                   ext.w    D0                           
FC40B2 3E80                   move.w   D0,(A7)                      on stack
FC40B4 61A2                   bsr      $FC4058                      Output character
FC40B6 52AE0008               addq.l   #1,8(A6)                     Pointer to next character
FC40BA 4A40                   tst.w    D0                           Output OK?
FC40BC 6704                   beq      $FC40C2                      Yes
FC40BE 70FF                   moveq.l  #-1,D0                       Flag for error
FC40C0 600C                   bra      $FC40CE                      
FC40C2 206E0008               move.l   8(A6),A0                     String address
FC40C6 0C1000FF               cmp.b    #$FF,(A0)                    End criterium reached?
FC40CA 66DE                   bne      $FC40AA                      No
FC40CC 4240                   clr.w    D0                           OK
FC40CE 4E5E                   unlk A6                               
FC40D0 4E75                   rts                                   

*****************************************************************   Get printer status 
FC40D2 48E71F1E               movem.l  D3-D7/A3-A6,-(A7)            Save registers 
FC40D6 9BCD                   sub.l    A5,A5                        Clear A5
FC40D8 206D0506               move.l   $506(A5),A0                  prt_stat
FC40DC 4E90                   jsr      (A0)                         Jump via vector 
FC40DE 4CDF78F8               movem.l  (A7)+,D3-D7/A3-A6            Restore registers
FC40E2 4E75                   rts                                   

*****************************************************************   Printer output 
FC40E4 302F0006               move.w   6(A7),D0                     Character to output 
FC40E8 48E71F1E               movem.l  D3-D7/A3-A6,-(A7)            Save registers 
FC40EC 3F00                   move.w   D0,-(A7)                     Character on stack 
FC40EE 3F00                   move.w   D0,-(A7)                     (again ?)
FC40F0 9BCD                   sub.l    A5,A5                        Clear AS
FC40F2 206D050A               move.l   $50A(A5),A0                  prt_vec
FC40F6 4E90                   jsr      (A0)                         Jump via vector 
FC40F8 584F                   addq.w   #4,A7                        Correct stack pointer 
FC40FA 4CDF78F8               movem.l  (A7)+,D3-D7/A3-A6            Restore registers
FC40FE 4E75                   rts                                   

*****************************************************************   RS 232 output status 
FC4100 48E71F1E               movem.l  D3-D7/A3-A6,-(A7)            Save regisers
FC4104 9BCD                   sub.l    A5,A5                        Clear A5
FC4106 206D050E               move.l   $50E(A5),A0                  aux_stat
FC410A 4E90                   jsr      (A0)                         Jump via vector
FC410C 4CDF78F8               movem.l  (A7)+,D3-D7/A3-A6            Restore registers
FC4110 4E75                   rts

*****************************************************************   RS 232 output 
FC4112 302F0006               move.w   6(A7),D0                     Character to output
FC4116 48E71F1E               movem.l  D3-D7/A3-A6,-(A7)            Save registers
FC411A 3F00                   move.w   D0,-(A7)                     Character on stack 
FC411C 3F00                   move.w   D0,-(A7)                     (again ?) 
FC411E 9BCD                   sub.l    A5,A5                        Clear A5
FC4120 206D0512               move.l   $512(A5),A0                  aux_vec 
FC4124 4E90                   jsr      (A0)                         Jump via vector
FC4126 584F                   addq.w   #4,A7                        Correct stack pointer 
FC4128 4CDF78F8               movem.l  (A7)+,D3-D7/A3-A6            Restore registers
FC412C 4E75                   rts                                   

*****************************************************************   VDI ESCAPE functions
FC412E 20790000293E           move.l   $293E,A0                     Address of the CONTRL array
FC4134 3028000A               move.w   10(A0),D0                    Function number
FC4138 B07C0013               cmp.w    #$13,D0                      Greater than 19 ?
FC413C 6236                   bhi      $FC4174                      Yes
FC413E E340                   asl.w    #1,D0                        
FC4140 307B000A               move.w   $FC414C(PC,D0.w),A0          Get relative address from the table
FC4144 D1FC00FC4348           add.l    #$FC4348,A0                  Add base address 
FC414A 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   Address of the VDI escape functions
FC414C 0000                   dc.w     $FC4348-$FC4348              0, rts
FC414E FFD8                   dc.w     $FC4320-$FC4348              1, Inquire addressable alpha character cells
FC4150 0012                   dc.w     $FC435A-$FC4348              2, Exit alpha mode
FC4152 000C                   dc.w     $FC4354-$FC4348              3, Enter alpha mode
FC4154 001A                   dc.w     $FC4362-$FC4348              4, Alpha cursor up
FC4156 002E                   dc.w     $FC4376-$FC4348              5, Alpha cursor down
FC4158 0048                   dc.w     $FC4390-$FC4348              6, Alpha cursor right
FC415A 0062                   dc.w     $FC43AA-$FC4348              7, Alpha cursor left
FC415C 0076                   dc.w     $FC436E-$FC4348              8, Home alpha cursor 
FC415E 007E                   dc.w     $FC43C6-$FC4348              9, Erase to end of alpha screen
FC4160 00AA                   dc.w     $FC43F2-$FC4348              10, Erase to end of alpha text line
FC4162 0114                   dc.w     $FC445C-$FC4348              11, Direct alpha cursor address
FC4164 0128                   dc.w     $FC4470-$FC4348              12, Output cursor addressable alpha text
FC4166 014E                   dc.w     $FC4496-$FC4348              13, Reverse video on
FC4168 0158                   dc.w     $FC44A0-$FC4348              14, Reverse video off
FC416A 0162                   dc.w     $FC44AA-$FC4348              15, Inquire current alpha cursor address
FC416C 018C                   dc.w     $FC44D4-$FC4348              16, Inquire tablet status
FC416E 0002                   dc.w     $FC434A-$FC4348              17, Hardcopy
FC4170 01A4                   dc.w     $FC44EC-$FC4348              18, Place graphic cursor at location
FC4172 01B4                   dc.w     $FC44FC-$FC4348              19, Remove last graphic cursor

*****************************************************************
FC4174 B07C065                cmp.w    #$65,D0                      VDI ESC 101 ?
FC4178 670A                   beq      $FC4178                      Yes
FC417A B07C0066               cmp.w    #$66,D0                      VDI ESC 102 ?
FC417E 6700096A               beq      $FC4AEA                      Yes, select font
FC4182 4E75                   rts

*****************************************************************   VDI ESC 101, character offset from screen start
FC4184 6100043C               bsr      $FC45C2                      Cursor off
FC4188 207900002942           move.l   $2942,A0                     Address of INTIN array
FC418E 3010                   move.w   (A0),D0                      INTIN[O], offset in raster lines
FC4190 C0F90000293C           mulu.w   $293C,D0                     times bytes per screen line
FC4196 33C00000291C           move.w   D0,$291C                     equals offset in bytes
FC419C 60000412               bra      $FC45B0                      Turn cursor on again

*****************************************************************   ascout
FC41A0 322F0006               move.w   6(A7),D1                     Get character from stack
FC41A4 024100FF               and.w    #$FF,D1                      Bits 0-7 
FC41A8 600005D2               bra      $FC477C                      Output character

*****************************************************************   conout
FC41AC 322F0006               move.w   6(A7),D1                     Character from stack 
FC41B0 024100FF               and.w    #$FF,D1                      Bits 0-7
FC41B4 2079000004A8           move.l   $4A8,A0                      con_state vector 
FC41BA 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   Standard conout
FC41BC B27C0020               cmp.w    #$20,D1                      Control code ?
FC41C0 6C0005BA               bge      $FC477C                      No, output character
FC41C4 B23C001B               cmp.b    #$1B,D1                      ESC ?
FC41C8 660C                   bne      $FC41D6                      No, different control codes 
FC41CA 23FC00FC4218000004A8   move.l   #$FC4218,$4A8                con_state to ESC processing
FC41D4 4E75                   rts                                   

*****************************************************************   Process CTRL codes 
FC41D6 5F41                   subq.w   #7,D1                        Less than 7 ? 
FC41D8 6B22                   bmi      $FC41FC                      ignore
FC41DA B27C0006               cmp.w    #6,D1                        Greater than 13 ? 
FC41DE 6E1C                   bgt      $FC41FC                      ignore
FC41E0 E349                   lsl.w    #1,D1                        as word index
FC41E2 307B100A               move.w   $FC41EE(PC,D1.w),A0          Get relative address from table
FC41E6 D1FC00FC41FE           add.l    #$FC41FE,A0                  Add base address 
FC41EC 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   Jump table for CTRL codes 
FC41EE 0000                   dc.w     $FC41FE-$FC41FE              7, BEL
FC41F0 01AC                   dc.w     $FC43AA-$FC41FE              B, BS
FC41F2 0004                   dc.w     $FC4202-$FC41FE              9, TAB
FC41F4 049E                   dc.w     $FC469C-$FC41FE              10, LF
FC41F6 049E                   dc.w     $FC469C-$FC41FE              11, VT 
FC41F8 049E                   dc.w     $FC469C-$FC41FE              12, FF 
FC41FA 0492                   dc.w     $FC4690-$FC41FE              13, CR

*****************************************************************
FC41FC 4E75                   rts                                   rts for dummy routine

*****************************************************************   BEL
FC41FE 6000DE1C               bra      $FC201C                      Output sound

*****************************************************************   TAB
FC4202 30390000291E           move.w   $291E,D0                     Current cursor column
FC4208 0240FFF8               and.w    #$FFF8,D0                    Convert to number divisable by 8 
FC420C 5040                   addq.w   #8,D0                        plus 8
FC420E 323900002920           move.w   $2920,D1                     Current cursor line
FC4214 60000764               bra      $FC497A                      Reposition cursor

*****************************************************************   Process character as ESC 
FC4218 23FC00FC41BC000004A8   move.l   #$FC41BC,$4A8                con_state back to standard 
FC4222 927C0041               sub.w    #$41,D1                      minus 'A'
FC4226 6BD4                   bmi      $FC41FC                      less, ignore
FC4228 B27C000C               cmp.w    #$C,D1                       'M'
FC422C 6F50                   ble      $FC427E                      To escape table for uppercase letters 
FC422E B27C0018               cmp.W    #$18,D1                      'Y' for set cursor?
FC4232 663C                   bne      $FC4270                      No, test for lowercase letters 
FC4234 23FC00FC4240000004A8   move.l   #$FC4240,$4A8                con_state for ESC Y
FC423E 4E75                   rts

*****************************************************************   Process line under ESC Y 
FC4240 92700020               sub.w    #$20,D1                      Subtract offset
FC4244 33C1000004AC           move.w   D1,$4AC                      save_row, save line
FC424A 23FC00FC4256000004A8   move.l   #$FC4256,$4A8                con_state to column process
FC4254 4E75                   rts                                   

*****************************************************************   Process column under ESC Y 
FC4256 927C0020               sub.w    #$20,D1                      Subtract offset
FC425A 3001                   move.w   D1,D0                        Column 
FC425C 3239000004AC           move.w   $4AC,D1                      save_row, line
FC4262 23FC00FC41BC000004A8   move.l   #$FC41BC,$4A8                con_state to standard
FC426C 6000070C               bra      $FC497A                      Set cursor

*****************************************************************   Test for ESC lowercase letters 
FC4270 927C0021               sub.w    #$21,D1                      Subtract offset
FC4274 6B86                   bmi      $FC41FC                      less than 'b' ignore
FC4276 B27C0015               cmp.w    #$15,D1                      'w'
FC427A 6F10                   ble      $FC428C                      less than or equal, process sequence
FC427C 4E75                   rts                                   

*****************************************************************   ESC uppercase letters
FC427E E349                   lsl.w    #1,D1                        Word access
FC4280 307B1058               move.w   $FC42DA(PC,D1.w),A0          Get relative address from table 
FC4284 D1FC00FC41FC           add.l    #$FC41FC,A0                  Add base address
FC428A 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   ESC lowercase letters
FC428C E349                   lsl.w    #1,D1                        Word access
FC428E 307B1064               move.w   $FC42F4(PC,D1.w),A0          Get relative address from table 
FC4292 D1FC00FC41FC           add.l    #$FC41FC,A0                  Add base address
FC4298 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   ESC b, set type color 
FC429A 23FC00FC42A6000004A8   move.l   #$FC42A6,$4A8                set con_state
FC42A4 4E75                   rts                                   

*****************************************************************   Set type color
FC42A6 23FC00FC41BC000004A8   move.l   #$FC41BC,$4A8                con_state to standard
FC42B0 927C0020               sub.w    #$20,D1                      Subtract offset
FC42B4 3001                   move.w   D1,D0
FC42B6 60000290               bra      $FC4548                      Set type color

*****************************************************************   ESC c, set background color 
FC42BA 23FC00FC42C6000004A8   move.l   #$FC42C6,$4A8                Set con_state
FC42C4 4E75                   rts

*****************************************************************   Set background color
FC42C6 23FC00FC41BC000004A8   move.l   #$FC41BC,$4A8                con_state to standard
FC42D0 927C0020               sub.w    #$20,D1                      Subtract offset 
FC42D4 3001                   move.w   D1,D0 
FC42D6 6000027C               bra      $FC4554                      Set background color

*****************************************************************   Address table for ESC uppercase
FC42DA 0166                   dc.w     $FC4362-$FC41FC              ESC A 
FC42DC 017A                   dc.w     $FC4376-$FC41FC              ESC B 
FC42DE 0194                   dc.w     $FC4390-$FC41FC              ESC C 
FC42E0 01AE                   dc.w     $FC43AA-$FC41FC              ESC D 
FC42E2 0162                   dc.w     $FC435E-$FC41FC              ESC E 
FC42E4 0000                   dc.w     $FC41FC-$FC41FC              ESC F, rts 
FC42E6 0000                   dc.w     $FC41FC-$FC41FC              ESC G, rts 
FC42E8 01C2                   dc.w     $FC436E-$FC41FC              ESC H 
FC42EA 0306                   dc.w     $FC4502-$FC41FC              ESC I 
FC42EC 01CA                   dc.w     $FC43C6-$FC41FC              ESC J 
FC42EE 01F6                   dc.w     $FC43F2-$FC41FC              ESC K 
FC42F0 0320                   dc.w     $FC451C-$FC41FC              ESC L 
FC42F2 033C                   dc.w     $FC4538-$FC41FC              ESC M

*****************************************************************   Address table for ESC lowercase
FC42F4 009E                   dc.w     $FC429A-$FC41FC              ESC b
FC42F6 00BE                   dc.w     $FC42BA-$FC41FC              ESC c
FC42F8 0364                   dc.w     $FC4560-$FC41FC              ESC d
FC42FA 0380                   dc.w     $FC457C-$FC41FC              ESC e
FC42FC 03C6                   dc.w     $FC45C2-$FC41FC              ESC f
FC42FE 0000                   dc.w     $FC41FC-$FC41FC              ESC g, rts
FC4300 0000                   dc.w     $FC41FC-$FC41FC              ESC h, rts
FC4302 0000                   dc.w     $FC41FC-$FC41FC              ESC i, rts
FC4304 03E6                   dc.w     $FC45E2-$FC41FC              ESC j
FC4306 0402                   dc.w     $FC45FE-$FC41FC              ESC k
FC4308 041C                   dc.w     $FC4618-$FC41FC              ESC l
FC430A 0000                   dc.w     $FC41FC-$FC41FC              ESC m, rts
FC430C 0000                   dc.w     $FC41FC-$FC41FC              ESC n, rts
FC430E 043A                   dc.w     $FC4636-$FC41FC              ESC o
FC4310 029A                   dc.w     $FC4496-$FC41FC              ESC p
FC4312 02A4                   dc.w     $FC44A0-$FC41FC              ESC q
FC4314 0000                   dc.w     $FC41FC-$FC41FC              ESC r, rts
FC4316 0000                   dc.w     $FC41FC-$FC41FC              ESC s, rts
FC4318 0000                   dc.w     $FC41FC-$FC41FC              ESC t, rts
FC431A 0000                   dc.w     $FC41FC-$FC41FC              ESC u, rts
FC431C 0480                   dc.w     $FC467C-$FC41FC              ESC v
FC431E 048A                   dc.w     $FC4686-$FC41FC              ESC w

*****************************************************************   VDI ESC 1, get screen size 
FC4320 20790000293E           lea      $293E,A0                     Address of CONTRL array 
FC4326 317C00020008           move.w   #2,8(A0)                     2 result values
FC432C 20790000294A           move.l   $294A,A0                     Address of INTOUT array 
FC4332 30390000290E           move.w   $290E,D0                     Maximum cursor column 
FC4338 5240                   addq.w   #1,D0                        plus 1 equals number of columns 
FC433A 31400002               move.w   D0,2(A0)                     as INTOUT[1]
FC433E 303900002910           move.w   $2910,D0                     Maximum cursor line
FC4344 5240                   addgq.w  #1,D0                        plus 1 equals number of lines
FC4346 3080                   move.w   D0,(A0)                      as INTOUT[0]
FC4348 4E75                   rts

*****************************************************************   VDI ESC 17, hardcopy
FC434A 3F3C0014               move.w   #$14,-(A7)                   Hardcopy 
FC434E 4E4E                   trap     #14                          XBIOS 
FC4350 548F                   addq.l   #2,A7                        Correct stack pointer
FC4352 4E75                   rts

*****************************************************************   ESC 3, Enter alpha mode
FC4354 6108                   bsr      $FC435E                      ESC E, Clear home, clear screen
FC4356 60000224               bra      $FC457C                      ESC e, Cursor on


*****************************************************************   VDI ESC 2, Exit alpha mode
FC435A 61000266               bsr      $FC45C2                      ESC f, Cursor off

*****************************************************************   ESC E, Clear home
FC435E 615E                   bsr      $FC43BE                      ESC H, Cursor home
FC4360 6064                   bra      $FC43C6                      ESC J, Clear rest of screen

*****************************************************************   ESC A, VDI ESC 4, Cursor up
FC4362 323900002920           move.w   $2920,D1                     Current cursor line
FC4368 67DE                   beg      $FC4348                      Zero, done
FC436A 5341                   subq.w   #1,D1                        Subtract one
FC436C 30390000291E           move.w   $291E,D0                     Current cursor column
FC4372 60000606               bra      $FC497A                      Set cursor

*****************************************************************   ESC B, VDI ESC 5, Cursor down
FC4376 323900002920           move.w   $2920,D1                     Current cursor line
FC437C B27900002910           cmp.w    $2910,D1                     Maximum cursor line
FC4382 67C4                   beq      $FC4348                      Already in lowest line?
FC4384 5241                   addq.w   #1,D1                        Increment by one
FC4386 30390000291E           move.w   $291E,D0                     Current cursor column
FC438C 600005EC               bra      $FC497A                      Set cursor

*****************************************************************   ESC C, VDI ESC 6, Cursor right
FC4390 30390000291E           move.w   $291E,D0                     Current cursor column 
FC4396 B0790000290E           cmp.w    $290E,D0                     Maximum cursor column
FC439C 67AA                   beq      $FC4348                      Already in last column?
FC439E 5240                   addq.w   #1,D0                        Increment by one
FC43A0 323900002920           move.w   $2920,D1                     Current cursor line
FC43A6 600005D2               bra      $FC497A                      Set cursor

*****************************************************************   ESC D, BS, VDI ESC 7, Cursor left
FC43AA 30390000291E           move.w   $291E,D0                     Current cursor column
FC43B0 6796                   beq      $FC4348                      Cursor already in first column?
FC43B2 5340                   subq.w   #1,D0                        Subtract one 
FC43B4 323900002920           move.w   $2920,D1                     Current cursor line
FC43BA 600005BE               bra      $FC497A                      Set cursor

*****************************************************************   ESC H, VDI ESC 8, Cursor home
FC43BE 7000                   moveq.l  #0,D0                        Column 0
FC43C0 3200                   move.w   D0,D1                        Line 0
FC43C2 600005B6               bra      $FC497A                      Set cursor

*****************************************************************   ESC J, VDI ESC 9, Clear rest of screen
FC43C6 612A                   bsr      $FC43F2                      ESC K, Clear rest of line
FC43C8 323900002920           move.w   $2920,D1                     Current cursor line 
FC43CE B27900002910           cmp.W    $2910,D1                     Maximum cursor line
FC43D4 6700FF72               beq      $FC4348 
FC43D8 5241                   addq.w   #1,D1 
FC43DA 4841                   swap     D1 
FC43DC 323C0000               move.w   #0,D1
FC43E0 343900002910           move.w   $2910,D2                     Maximum cursor line
FC43E6 4842                   swap     D2                           
FC43E8 34390000290E           move.w   $290E,D2                     Maximum cursor column 
FC43EE 60000436               bra      $FC4826                      Clear screen area

*****************************************************************   BSC K, VDI ESC 10, Clear rest of line
FC43F2 08B9000300002934       bclr     #3,$2934                     Cursorflag, clear wrap
FC43FA 40E7                   move.w   SR, -(A7)                    Save old value
FC43FC 610001C4               bsr      $FC45C2                      ESC f, Cursor off
FC4400 610001E0               bsr      $FC45E2                      ESC j, Store cursor position
FC4404 32390000291E           move.w   $291E,D1                     Current cursor column
FC440A 08010000               btst     #0,D1                        
FC440E 6716                   beq      $FC4426                      
FC4410 B2790000290E           cmp.w    $290E,D1                     Maximum cursor column
FC4416 673A                   beq      $FC4452                      
FC4418 323C0020               move.w   #$20,D1                      Blank 
FC441C 6100035E               bsr      $FC477C                      Output 
FC4420 32390000291E           move.w   $291E,D1                     Current cursor column
FC4426 4841                   swap     D1                           
FC4428 323900002920           move.w   $2920,D1                     Current cursor line
FC442E 3401                   move.w   D1,D2                        
FC4430 4841                   swap     D1                           
FC4432 4842                   swap     D2                           
FC4434 34390000290E           move.w   $290E,D2                     Maximum cursor column
FC443A 610003EA               bsr      $FC4826                      Clear screen area
FC443E 44DF                   move.w   (A7)+,CCR                    Restore flag
FC4440 6708                   beq      $FC444A                      Not set?
FC4442 08F9000300002934       bset     #3,$2934                     Cursorflag, set wrap
FC444A 610001B2               bsr      $FC45FE                      ESC k, Restore cursor position 
FC444E 60000160               bra      $FC45B0                      Turn cursor back on
FC4452 32300020               move.w   #$20,D1                      Blank
FC4456 61000324               bsr      $FC477C                      output
FC445A 60E2                   bra      $FC443E

*****************************************************************   VDI ESC 11, Set cursor
FC445C 207900002942           move.l   $2942,A0                     Address of the INTIN array 
FC4462 3210                   move.w   (A0),D1                      Get line
FC4464 5341                   subq.w   #1,D1                        Subtract offset
FC4466 30280002               move.w   2(A0),D0                     Get column
FC446A 5340                   subq.w   #1,D0                        Subtract offset
FC446C 6000050C               bra      $FC497A                      Set cursor

*****************************************************************   VDI ESC 12, Text output
FC4470 20790000293E           move.l   $293E,A0                     Address of the CONTRL array 
FC4476 30280006               move.w   6(A0),D0                     Number of characters
FC447A 207900002942           move.l   $2942,A0                     Address of the INTIN array 
FC4480 600E                   bra      $FC4490                      To end of loop
FC4482 3218                   move.w   (A0)+,D1                     Get characters in D1
FC4484 48E78080               movem.l  D0/A0,-(A7)                  Save registers
FC4488 6100FD26               bsr      $FC41B0                      Output character in D1
FC448C 4CDF0101               movem.l  (A7)+,D0/A0                  Restore registers
FC4490 51C8FFF0               dbra     D0,$FC4482                   Output next character 
FC4494 4E75                   rts

*****************************************************************   ESC p, VDI ESC 13, Reverse on
FC4496 08F9000400002934       bset     #4,$2934                     Cursor flag, set reverse
FC449E 4E75                   rts

*****************************************************************   ESC q, VDI ESC 14, Reverse off
FC44A0 38B9000400002934       bclr     #4,$2934                     Cursor flag, clear reverse
FC44A8 4E75                   rts

*****************************************************************   VDI ESC 15, Get cursor position
FC44AA 20790000293E           move.l   $293E,A0                     Address of the CONTRL array
FC44B0 317C00020008           move.w   #2,8(A0)                     2 result values
FC44B6 20790000294A           move.l   $294A,A0                     Address of the INTOUT array 
FC44BC 303900002920           move.w   $2920,D0                     Current cursor line
FC44C2 5240                   addgq.w  #1,D0                        plus offset
FC44C4 3080                   move.w   D0,(A0)                      as INTOUT[0]
FC44C6 30390000291E           move.w   $291E,D0                     Current cursor column
FC44CC 5240                   addq.w   #1,D0                        plus offset
FC44CE 31400002               move.w   D0,2(A0)                     as INTOUT([1]
FC44D2 4E75                   rts

*****************************************************************   VDI ESC 16, Inquire tablet status 
FC44D4 20790000293E           move.l   $293E,A0                     Address of CONTRL array
FC44DA 317C00010008           move.w   #1,8(A0)                     One result value
FC44E0 20790000294A           move.l   $294A,A0                     Address of the INTOUT array 
FC44E6 30BC0001               move.w   #1,(A0)                      Tablet available
FC44EA 4E75                   rts                                   

*****************************************************************   VDI ESC 18, Set graphic cursor 
FC44EC 207900002942           move.l   $2942,A0                     Address of the INTIN array
FC44F2 30BC0000               move.w   #0,(A0)                      No result value
FC44F6 4EF900FCAFCA           jmp      $FCAFCA                      Turn mouse cursor off

*****************************************************************   VDI ESC 19, Clear graphic cursor 
FC44FC 4EF900FCAFF2           jmp      $FCAFF2                      Turn mouse cursor off

*****************************************************************   ESC I, Cursor up, scroll if necessary
FC4502 323900002920           move.w   $2920,D1                     Current cursor line
FC4508 6600FE60               bne      $FC436A                      Not in line 0, cursor up
FC450C 3F390000291E           move.w   $291E,-(A7)                  Save current cursor column
FC4512 6108                   bsr      $FC451C                      ESC L, insert line
FC4514 301F                   move.w   (A7)+,D0                     Restore cursor column
FC4516 7200                   moveq.l  #0,D1                        Line 0
FC4518 60000460               bra      $FC497A                      set cursor

*****************************************************************   ESC L, Insert line
FC451C 610000A4               bsr      $FC45C2                      ESC f, Cursor off
FC4520 323900002920           move.w   $2920,D1                     Current cursor line
FC4526 6100058A               bsr      $FC4AB2                      Scroll rest of screen down 
FC452A 4240                   clr.w    D0                           Column 0
FC452C 323900002920           move.w   $2920,D1                     Current cursor line
FC4532 61000446               bsr      $FC497A                      set cursor
FC4536 6078                   bra      $FC45B0                      Turn cursor on again

*****************************************************************   ESC M, Delete line
FC4538 61000088               bsr      $FC45C2                      ESC f, Cursor off 
FC453C 323900002920           move.w   $2920,D1                     Current cursor line 
FC4542 61000526               bsr      $FC4A6A                      Move rest of screen up
FC4546 60E2                   bra      $FC452A                      

*****************************************************************   Set background color 
FC4548 C07C000F               and.w    #$F,D0                       Color 0-15 
FC454C 330000002916           move.w   D0,$2916                     Type color
FC4552 4E75                   rts                                   

*****************************************************************   Set background color 
FC4554 C07C000F               and.w    #$F,D0                       Color 0-15 
FC4558 33C000002914           move.w   D0,$2914                     Background color
FC455E 4E75                   rts                                   

*****************************************************************   ESC d, Clear screen to cursor
FC4560 610000D4               bsr      $FC4636                      ESC o, Clear line to cursor 
FC4564 343900002920           move.w   $2920,D2                     Current cursor line
FC456A 67F2                   beq      $FC455E                      Zero, done
FC456C 5342                   subq.w   #1,D2                        
FC456E 4842                   swap     D2                           
FC4570 34390000290E           move.w   $290E,D2                     Maximum cursor column
FC4576 7200                   moveq.l  #0,D1                        
FC4578 600002AC               bra      $FC4826                      Clear screen area

*****************************************************************   ESC e, Turn cursor on 
FC457C 4A79000027E0           tst.w    $27E0                        Cursor already on?
FC4582 67DA                   beq      $FC455E                      Yes, done
FC4584 4279000027E0           clr.w    $27E0                        Clear number of hide calls 
FC458A 41F900002934           lea      $2934,A0                     Cursor fiag
FC4590 08100000               btst     #0,(A0)                      
FC4594 660E                   bne      $FC45A4                      
FC4596 08D00002               bset     #2,(A0)                      
FC459A 227900002918           move.l   $2918,A1                     Screen address of the cursor 
FC45A0 60000456               bra      $FC49F8                      Invert character at cursor position

FC45A4 61F4                   bsr      $FC459A                      Invert character at cursor position
FC45A6 08D00001               bset     #1,(A0)                      
FC45AA 08D00002               bset     #2,(A0)                      
FC45AE 4E75                   rts                                   

*****************************************************************   
FC45B0 4A79000027E0           tst.w    $27E0                        Cursor on ?
FC45B6 67A6                   beq      $FC455E                      Yes, rts
FC45B8 5379000027E0           subq.w   #1,$27E0                     Decrement number of hide calls
FC45BE 67CA                   beq      $FC458A                      Turn on again
FC45C0 4E75                   rts                                   

*****************************************************************   ESC f, Cursor off
FC45C2 5279000027E0           addg.w   #1,$27E0                     Increment number of hide calls
FC45C8 41F900002934           lea      $2934,A0                     Cursor flag
FC45CE 08900002               belr     #2,(A0)                      Cursor not visible
FC45D2 678A                   beg      $FC455E                      Cursor was already off
FC45D4 08100000               btst     #0,(A0)                      Cursor flashing ?
FC45D8 67C0                   beq      $FC459A                      No
FC45DA 08900001               bclr     #1,(A0)                      Cursor not visible
FC45DE 66BA                   bne      $FC459A                      Invert character at cursor position 
FC45E0 4E75                   rts

*****************************************************************   ESC j, Save CUrsor position 
FC45E2 08F9000500002934       bset     #5,$2934                     Cursor flag, position saved 
FC45EA 41F9000027EC           lea      $27EC,A0                     Address of the save area 
FC45F0 30F90000291E           move.w   $291E,(A0)+                  Current cursor column 
FC45F6 30B900002920           move.w   $2920,(A0)                   Current cursor line
FC45FC 4E75                   rts

*****************************************************************   ESC k, Cursor to saved position
FC45FE 08B9000500002934       bclr     #5,$2934                     Cursor flag, position saved? 
FC4606 6700FDB6               beq      $FC43BE                      No, Cursor home 
FC460A 41F9000027EC           lea      $27EC,A0                     Address of the save area 
FC4610 3018                   move.w   (A0)+,D0                     Cursor column 
FC4612 3210                   move.w   (A0),D1                      Cursor line 
FC4614 60000364               bra      $FC497A                      Set cursor

*****************************************************************   ESC 1, Delete line
FC4618 61A8                   bsr      $FC45C2                      ESC f, Turn cursor off
FC461A 323900002920           move.w   $2920,D1                     Current cursor line 
FC4620 3401                   move.w   D1,D2
FC4622 4841                   swap     D1
FC4624 4241                   clr.w    D1
FC4626 4842                   swap     D2
FC4628 34390000290E           move.w   $290E,D2                     Maximum cursor column 
FC462E 610001F6               bsr      $FC4826                      Clear screen area 
FC4632 6000FEF6               bra      $FC452A                      Cursor in column zero

*****************************************************************   ESC o, Clear line to cursor
FC4636 618A                   bsr      $FC45C2                      ESC f, Turn cursor off 
FC4638 61A8                   bsr      $FC45E2                      ESC j, Save cursor position
FC463A 34390000291E           move.w   $291E,D2                     Current cursor column
FC4640 6730                   beq      $FC4672                      Zero, done
FC4642 08020000               btst     #0,D2                        
FC4646 6610                   bne      $FC4658                      
FC4648 323C0020               move.w   #$20,D1                      Blank 
FC464C 6100012E               bsr      $FC477C                      output
FC4650 34390000291E           move.w   $291E,D2                     Current cursor column
FC4656 5542                   subq.w   #2,D2                        
FC4658 4842                   swap     D2                           
FC465A 343900002920           move.w   $2920,D2                     Current cursor line
FC4660 3202                   move.w   D2,D1                        
FC4662 4842                   swap     D2                           
FC4664 4841                   swap     D1                           
FC4666 4241                   clr.w    D1                           
FC4668 610001BC               bsr      $FC4826                      Clear screen area 
FC466C 6190                   bsr      $FC45FE                      ESC k, Cursor to saved position
FC466E 6000FF40               bra      $FC45B0                      and turn cursor back on
FC4672 323C0020               move.w   #$20,D1                      Blank 
FC4676 61000104               bsr      $FC477C                      output
FC467A 60F0                   bra      $FC466C

*****************************************************************   ESC v, Turn line-wrap off 
FC467C 08F9000300002934       bset     #3,$2934                     Cursor flag, flag for new line
FC4684 4E75                   rts                                   

*****************************************************************   ESC w, Turn line-wrap on 
FC4686 08B9000300002934       bclr     #3,$2934                     Cursor flag, clear flag
FC468E 4E75                   rts                                   

*****************************************************************   CR, Cursor to column zero
FC4690 323900002920           move.w   $2920,D1                     Current cursor line
FC4696 4240                   clr.w    D0                           Column zero
FC4698 600002E0               bra      $FC497A                      Set cursor

*****************************************************************   LF, (VT, FF), Cursor down
FC469C 303900002920           move.w   $2920,D0                     Current cursor line
FC46A2 B07900002910           cmp.w    $2910,D0                     Maximum cursor line
FC46A8 6600FCCC               bne      $FC4376                      Not in lowest line, just cursor down
FC46AC 6100FF14               bsr      $FC45C2                      ESC f, Turn cursor off
FC46B0 4241                   clr.w    D1                           
FC46B2 610003B6               bsr      $FC4A6A                      Scroll screen up
FC46B6 6000FEF8               bra      $FC45B0                      and turn cursor back on

*****************************************************************   Flash cursor
FC46BA 41F900002934           lea      $2934,A0                     Cursor flag
FC46C0 08100006               btst     #6,(A0)                      Update flag set ?
FC46C4 662A                   bne      $FC46F0                      Yes, do nothing
FC46C6 08100002               btst     #2,(A0)                      Cursor turned on ?
FC46CA 6724                   beq      $FC46F0                      No 
FC46CC 08100000               btst     #0,(A0)                      Cursor flashing ?
FC46D0 671E                   beq      $FC46F0                      No
FC46D2 43F900002923           lea      $2923,A1                     Cursor flash counter
FC46D8 5311                   subq.b   #1,(A1)                      decrement 
FC46DA 6614                   bne      $FC46F0                      Run out? 
FC46DC 12B900002922           move.b   $2922,(A1)                   Reload cursor flash rate
FC46E2 08500001               bchg     #1,(A0)                      Invert cursor phase
FC46E6 227900002918           move.l   $2918,A1                     Screen address of the cursor
FC46EC 6000030A               bra      $FC49F8                      Invert character at cursor position
FC46F0 4E75                   rts                                   

*****************************************************************   Cursor configuration
FC46F2 302F0004               move.w   4(A7),D0                     Function number
FC46F6 6BF8                   bmi      $FC46F0                      Negative, ignore
FC46F8 B07C0005               cmp.w    #5,D0                        Greater than 5 ?
FC46FC 6EF2                   bgt      $FC46F0                      Yes
FC46FE E340                   asl.w    #1,D0                        Word access
FC4700 41F900FC4718           lea      $FC4718,A0                   Base address of the table 
FC4706 D0FB0004               add.w    $FC470C(PC,D0.w),A0          plus relative address 
FC470A 4ED0                   jmp      (A0)                         Execute routine

*****************************************************************   Jump table for cursor configuration
FC470C 0000                   dc.w     $FC4718-$FC4718              
FC470E 0004                   dc.w     $FC471C-$FC4718              
FC4710 0008                   dc.w     $FC4720-$FC4718              
FC4712 0016                   dc.w     $FC472E-$FC4718              
FC4714 0024                   dc.w     $FC473C-$FC4718              
FC4716 002C                   dc.w     $FC4744-$FC4718              

*****************************************************************   0
FC4718 6000FEA8               bra      $FC45C2                      ESC f, Turn cursor on

*****************************************************************   1
FC471C 6000FE5E               bra      $FC457C                      ESC e, Turn cursor on

*****************************************************************   2
FC4720 6100FEA0               bsr      $FC45C2                      ESC f, Turn cursor off
FC4724 08ED00002934           bset     #0,$2934(A5)                 Cursor flag
FC472A 6000FE84               bra      $FC45B0                      And back on

*****************************************************************   3
FC472E 6100FE92               bsr      $FC45C2                      ESC f, Turn cursor off
FC4732 08AD00002934           bclr     #0,$2934(A5)                 Cursor flag
FC4738 6000FE76               bra      $FC45B0                      And back on

*****************************************************************   4
FC473C 1B6F00072922           move.b   7(A7),$2922(A5)              Set cursor flash rate
FC4742 4E75                   rts                                   

*****************************************************************   5
FC4744 7000                   moveq.l  #0,D0                        
FC4746 102D2922               move.b   $2922(A5),D0                 Load cursor flash rate
FC474A 4E75                   rts                                   

*****************************************************************   Calculate font data for character in D1 
FC474C 36390000292A           move.w   $292A,D3                     Smallest ASCII code in font
FC4752 B243                   cmp.w    D3,D1                        Compare with character to output 
FC4754 6522                   bcs      $FC4778                      Character not in font
FC4756 B27900002928           cmp.w    $2928,D1                     Largest ASCII code in font
FC475C 621A                   bhi      $FC4778                      Character not in font
FC475E 207900002930           move.l   $2930,A0                     Pointer to offset data
FC4764 D241                   add.w    D1,D1                        Code times 2
FC4766 32301000               move.w   0(A0,D1.w),D1                Yields bit number in font
FC476A E649                   lsr.w    #3,D1                        Divided by 8 equals byte number
FC476C 207900002924           move.l   $2924,A0                     Pointer to font data
FC4772 D0C1                   add.w    D1,A0                        Yields pointer to data for this character
FC4774 4243                   clr.w    D3                           Flag for character present
FC4776 4E75                   rts                                   

FC4778 7601                   moveq.l  #1,D3                        Character not in font
FC477A 4E75                   rts                                   

*****************************************************************   ascout, ignore control codes 
FC477C 61CE                   bsr      $FC474C                      Character in font? 
FC477E 6702                   beq      $FC4782                      Yes
FC4780 4E75                   rts                                   
FC4782 227900002918           move.l   $2918,A1                     Screen address of the cursor 
FC4788 3E3900002914           move.w   $2914,D7                     Background color
FC478E 4847                   swap     D7                           In upper word
FC4790 3E3900002916           move.w   $2916,D7                     Type color in lower word 
FC4796 0839000400002934       btst     #4,$2934                     Cursor flag, reverse ? 
FC479E 6702                   beq      $FC47A2                      No
FC47A0 4847                   swap     D7                           Exchange colors
FC47A2 08B9000200002934       bclr     #2,$2934                     Cursor flag, character in flash phase?
FC47AA 40E7                   move.w   SR, -(A7)                    Save status
FC47AC 61000160               bsr      $FC490E                      Write character to the screen 
FC47B0 227900002918           move.l   $2918,A1                     Screen address of the cursor 
FC47B6 30390000291E           move.w   $291E,D0                     Current cursor column
FC47BC 323900002920           move.w   $2920,D1                     Current cursor line
FC47C2 6100026E               bsr      $FC4A32                      Increment cursor position
FC47C6 6732                   beq      $FC47FA                      No CR/LF needed ?
FC47C8 303900002912           move.w   $2912,D0                     Bytes per character line
FC47CE C0C1                   mulu.w   D1,D0                        times lines
FC47D0 22790000044E           move.l   $44E,A1                      _v_bs_ad
FC47D6 D3C0                   add.l    D0,A1                        Yields address of the character 
FC47D8 4240                   clr.w    D0                           Column 0
FC47DA B27900002910           cmp.w    $2910,D1                     Cursor in lowest line?
FC47E0 640A                   bcc      $FC47EC                      Yes
FC47E2 D2F900002912           add.w    $2912,A1                     Bytes per character line, next line 
FC47E8 5241                   addq.w   #1,D1                        Increment line
FC47EA 600E                   bra      $FC47FA                      
FC47EC 48E7C040               movem.l  D0-D1/A1,-(A7)               Save registers
FC47F0 7200                   moveq.l  #0,D1                        to line 0
FC47F2 61000276               bsr      $FC4A6A                      Scroll screen up
FC47F6 4CDF0203               movem.l  (A7)+,D0-D1/A1               Restore registers
FC47FA 23C900002918           move.l   A1,$2918                     Screen address of the cursor 
FC4800 33C00000291E           move.w   D0,$291E                     Current cursor column 
FC4806 33C100002920           move.w   D1,$2920                     Current cursor line
FC480C 44DF                   move.w   (A7)+,CCR                    Restore status
FC480E 6714                   beq      $FC4824                      Flag not set?
FC4810 610001E6               bsr      $FC49F8                      Invert character at cursor position
FC4814 08F9000100002934       bset     #1,$2934                     Cursor flag, cursor visible 
FC481C 08F9000200002934       bset     #2,$2934                     Cursor flag, cursor in flash phase
FC4824 4E75                   rts                                   

*****************************************************************   Clear screen area
FC4826 9481                   sub.l    D1,D2                        
FC4828 3001                   move.w   D1,D0                        Cursor column 
FC482A 4841                   swap     D1                           Cursor line 
FC482C 61000098               bsr      $FC48C6                      Calculate cursor position
FC4830 E242                   asr.w    #1,D2                        
FC4832 36390000293A           move.w   $293A,D3                     Number of screen planes 
FC4838 0C430004               cmp.w    #4,D3                        Low resolution ?
FC483C 6602                   bne      $FC4840                      No
FC483E 5343                   subq.w   #1,D3                        minus 1, yields 1, 2, 3
FC4840 3202                   move.w   D2,D1                        
FC4842 5241                   addq.w   #1,D1                        
FC4844 E761                   asl.w    D3,D1                        
FC4846 34790000293C           move.w   $293C,A2                     Number of bytes per screen line
FC484C 94C1                   sub.w    D1,A2                        
FC484E 3202                   move.w   D2,D1                        
FC4850 4842                   swap     D2                           
FC4852 5242                   addq.w   #1,D2                        
FC4854 C4F90000290C           mulu.w   $290C,D2                     times height of a character 
FC485A 5342                   subq.w   #1,D2                        als dbra counter
FC485C 4280                   clr.l    D0                           
FC485E 3A3900002914           move.w   $2914,D5                     Background color
FC4864 0C7900020000293A       cmp.w    #2,$293A                     Number of screen planes
FC486C 6B44                   bmi      $FC48B2                      High resolution ?
FC486E 6728                   beq      $FC4898                      Medium resolution ?
*****************************************************************   Low resolution
FC4870 E245                   asr.w    #1,D5                        Background color, bit 0 into carry
FC4872 4040                   negx.w   D0                           Bit set, invert word
FC4874 4840                   swap     D0                           
FC4876 E245                   asr.w    #1,D5                        Background color, bit 1into  color
FC4878 4040                   negx.w   D0                           Bit set, invert word 
FC487A 4283                   clr.l    D3                           Planes three and four 
FC487C E245                   asr.w    #1,D5                        Background color, bit 2 into carry
FC487E 4043                   negx.w   D3                           Bit set, invert word
FC4880 4843                   swap     D3                           
FC4882 E245                   asr.w    #1,D5                        Background color, bit 3 into carry
FC4884 4043                   negx.w   D3                           Bit set, invert word
FC4886 3A01                   move.w   D1,D5                        Number of long words per line 
FC4888 22C0                   move.l   D0,(A1)+                     Color planes one and two
FC488A 22C3                   move.l   D5,(A1)+                     Color planes three and four
FC488C 51CDFFFA               dbra     D5,$FC4888                   Next long word
FC4890 D3CA                   add.l    A2,A1                        Pointer to next raster line
FC4892 51CAFFF2               dbra     D2,$FC4886                   Next raster line
FC4896 4E75                   rts                                   

*****************************************************************   Medium resolution 
FC4898 E245                   asr.w    #1,D5                        Background color, bit 0 into carry
FC489A 4040                   negx.w   D0                           Bit set, invert word
FC489C 4840                   swap     D0                           
FC489E E245                   asr.w    #1,D5                        Background color, bit 1 into carry
FC48A0 4040                   negx.w   D0                           Bit set, invert word
FC48A2 3A01                   move.w   D1,D5                        Number of long words per line 
FC48A4 22C0                   move.l   D0,(A1)+                     Color planes one and two
FC48A6 51CDFFFC               dbra     D5,$FC48A4                   Next long word
FC48AA D3CA                   add.l    A2,A1                        Pointer to next raster line
FC48AC 51CAFFF4               dbra     D2,$FC48A2                   Next raster line
FC48B0 4E75                   rts

*****************************************************************   high resolution 
FC48B2 E245                   asr.w    #1,D5                        Background color, bit 0 in carry
FC48B4 4040                   negx.w   D0                           Bit set, invert word
FC48B6 3A01                   move.w   D1,D5                        Number of long words per line 
FC48B8 32C0                   move.w   D0,(A1)+                     Color plane one
FC48BA 51CDFFFC               dbra     D5,$FC48B8                   Next long word 
FC48BE D3CA                   add.l    A2,A1                        Pointer to next raster line 
FC48C0 51CAFFF4               dbra     D2,$FC48B6                   Next raster line
FC48C4 4E75                   rts                                   

*****************************************************************   Calculate cursor position (D0/D1)
FC48C6 36390000290E           move.w   $290E,D3                     Maximum cursor column 
FC48CC B640                   cmp.w    D0,D3                        Column value too large?
FC48CE 6A02                   bpl      $FC48D2                      No
FC48D0 3003                   move.w   D3,D0                        Replace with maximum value
FC48D2 363900002910           move.w   $2910,D3                     Maximum cursor line
FC48D8 B641                   cmp.w    D1,D3                        Line value too large?
FC48DA 6A02                   bpl      $FC48DE                      No
FC48DC 3203                   move.w   D3,D1                        Replace with maximum value 
FC48DE 36390000293A           move.w   $293A,D3                     Number of screen planes
FC48E4 3A00                   move.w   D0,D5                        Column
FC48E6 08850000               bclr     #0,D5                        Round to even value
FC48EA C6C5                   mulu.w   D5,D3                        Number of screen planes times cursor column
FC48EC 08000000               btst     #0,D0                        Odd column?
FC48F0 6702                   beq      $FC48F4                      No 
FC48F2 5283                   addq.l   #1,D3                        Add one
FC48F4 3A3900002912           move.w   $2912,D5                     Bytes per character line
FC48FA CAC1                   mulu.w   D1,D5                        Times cursor line
FC48FC 22790000044E           move.l   $44E,A1                      _V_bs_ad
FC4902 D3C5                   add.l    D5,A1                        plus line offset 
FC4904 D3C3                   add.l    D3,A1                        plus column offset 
FC4906 D2F90000291C           add.w    $291C,A1                     plus offset from screen start
FC490C 4E75                   rts

*****************************************************************   Character from font on the screen 
FC490E 34790000292C           move.w   $292C,A2                     Width of font, formwidth
FC4914 36790000293C           move.w   $293C,A3                     Number of bytes per screen line 
FC491A 38390000290C           move.w   $290C,D4                     Height of a character
FC4920 5344                   subq.w   #1,D4                        as dbra counter
FC4922 3C390000293A           move.w   $293A,D6                     Number of screen planes
FC4928 5346                   subq.w   #1,D6                        as dbra counter
FC492A 3A04                   move.w   D4,D5                        Counter for raster lines
FC492C 2848                   move.l   A0,A4                        Font address of the character 
FC492E 2A49                   move.l   A1,A5                        Screen address of the character 
FC4930 E287                   asr.l    #1,D7                        Next bit back- and foreground color
FC4932 0807000F               btst     #15,D7                       Bit set in background color?
FC4936 6706                   beq      $FC493E                      No
FC4938 642A                   bce      $FC4964                      Foreground color not set?
FC493A 76FF                   moveq.l  #-1,D3                       Fore- and background colors set
FC493C 6004                   bra      $FC4942                      
                                                                    
FC493E 6512                   bcs      $FC4952                      Foreground color set?
FC4940 7600                   moveq.l  #0,D3                        Fore and background cleared 
FC4942 1A83                   move.b   D3,(A5)                      Set byte in video RAM 
FC4944 DACB                   add.w    A3,A5                        Pointer to next raster line 
FC4946 51CDFFFA               dbra     D5,$FC4942                   Next raster line
FC494A 5449                   addq.w   #2,A1                        Pointer to next color plane 
FC494C 51CEFFDC               dbra     D6,$FC492A                   Next color plane
FC4950 4E75                   rts                                   

*****************************************************************   Set foreground color only
FC4952 1A94                   move.b   (A4),(A5)                    Copy byte in font in video RAM 
FC4954 DACB                   add.w    A3,A5                        Next raster line of the screen 
FC4956 D8CA                   add.w    A2,A4                        Next raster line in font
FC4958 51CDFFF8               dbra     D5,$FC4952                   Write next raster line 
FC495C 5449                   addq.w   #2,A1                        Pointer to next color plane 
FC495E 51CEFFCA               dbra     D6,$FC492A                   Next color plane
FC4962 4E75                   rts                                   

*****************************************************************   Set background color only
FC4964 1614                   move.b   (A4),D3                      Get byte from font
FC4966 4603                   not.b    D3                           Invert
FC4968 1A83                   move.b   D3,(A5)                      and to screen
FC496A DACB                   add.w    A3,A5                        Next raster line on the screen 
FC496C D8CA                   add.w    A2,A4                        Next raster line in font 
FC496E 51CDFFF4               dbra     D5,$FC4964                   Display next raster line 
FC4972 5449                   addq.w   #2,A1                        Pointer to next color plane 
FC4974 51CEFFB4               dbra     D6,$FC492A                   Next color plane
FC4978 4E75                   rts                                   

*****************************************************************   set cursor
FC497A B0790000290E           cmp.w    $290E,D0                     Compare column with maximum value
FC4980 6306                   bls      $FC4988                      Smaller ?
FC4982 30390000290E           move.w   $290E,D0                     Maximum cursor column
FC4988 B27900002910           cmp.w    $2910,D1                     Compare line with maximum value 
FC498E 6306                   bls      $FC4996                      Smaller ?
FC4990 323900002910           move.w   $2910,D1                     Maximum cursor line
FC4996 33C00000291E           move.w   D0,$291E                     Current cursor column
FC499C 33C100002920           move.w   D1,$2920                     Current cursor line
FC49A2 41F900002934           lea      $2934,A0                     Cursor flag
FC49A8 08100002               btst     #2,(A0)                      Cursor in flash phase?
FC49AC 673E                   beq      $FC49EC                      No
FC49AE 08100000               btst     #0,(A0)                      Cursor flashing ?
FC49B2 670A                   beq      $FC49BE                      No
FC49B4 08900002               bclr     #2,(A0)                      Clear flag for flash phase 
FC49B8 08100001               btst     #1,(A0)                      Cursor visible ?
FC49BC 671E                   beq      $FC49DC                      No
FC49BE 227900002918           move.l   $2918,A1                     Screen address of the old cursor 
FC49C4 6132                   bsr      $FC49F8                      Invert character at cursor position
FC49C6 6100FEFE               bsr      $FC48C6                      Calculate new cursor position 
FC49CA 23C900002918           move.l   A1,$2918                     Screen address of the new cursor 
FC49D0 6126                   bsr      $FC49F8                      Invert character at cursor position
FC49D2 08F9000200002934       bset     #2,$2934                     Cursor flag
FC49DA 4E75                   rts                                   
FC49DC 6100FEE8               bsr      $FC48C6                      Calculate cursor position 
FC49E0 23C900002918           move.l   A1,$2918                     Screen address of the cursor 
FC49E6 08D00002               bset     #2,(A0)                      Cursor in flash phase
FC49EA 4E75                   rts                                   
FC49EC 6100FED8               bsr      $FC48C6                      Calculate cursor position 
FC49F0 23C900002918           move.l   A1,$2918                     Screen addres of the cursor
FC49F6 4E75                   rts                                   

*****************************************************************   Invert character at cursor position
FC49F8 34790000293C           move.w   $293C,A2                     Number of bytes per screen line 
FC49FE 38390000290C           move.w   $290C,D4                     Height of a character
FC4A04 5344                   subq.w   #1,D4                        as dbra counter
FC4A06 3C390000293A           move.w   $293A,D6                     Number of screen planes
FC4A0C 5346                   subq.w   #1,D6                        as dbra as counter
FC4A0E 08F9000600002934       bset     #6,$2934                     set cursor flag for update 
FC4A16 3A04                   move.w   D4,D5                        Counter for raster lines
FC4A18 2849                   move.l   A1,A4                        Screen address of the cursor 
FC4A1A 4614                   not.b    (A4)                         Invert byte
FC4A1C D8CA                   add.w    A2,A4                        Pointer to next raster line 
FC4A1E 51CDFFFA               dbra     D5,$FC4A1A                   Next raster line
FC4A22 5449                   addq.w   #2,A1                        Pointer to next color plane 
FC4A24 51CEFFF0               dbra     D6,$FC4A16                   Next color plane
FC4A28 08B9000600002934       bclr     #6,$2934                     Clear cursor flag for update
FC4A30 4E75                   rts                                   

*****************************************************************   Increment cursor position (D0/D1)
FC4A32 B0790000290E           cmp.w    $290E,D0                     Cursor in last column?
FC4A38 6612                   bne      $FC4A4C                      No
FC4A3A 0839000300002934       btst     #3,$2934                     Cursor flag, overflow in next line?
FC4A42 6604                   bne      $FC4A48                      Yes
FC4A44 4243                   clr.w    D3                           Cursor still in same line
FC4A46 4E75                   rts                                   

FC4A48 7601                   moveq.l  #1,D3                        CR/LF necessary
FC4A4A 4E75                   rts                                   

FC4A4C 5240                   addq.w   #1,D0                        Next column
FC4A4E 08000000               btst     #0,D0                        Even column number? 
FC4A52 6706                   beq      $FC4A5A                      Yes, not in same word 
FC4A54 5249                   addq.w   #1,A1                        Increment addres by one
FC4A56 4243                   clr.w    D3                           Cursor still in same line
FC4A58 4E75                   rts                                   

FC4A5A 36390000293A           move.w   $293A,D3                     Number of screen planes 
FC4A60 E343                   asl.w    #1,D3                        times 2
FC4A62 5343                   subq.w   #1,D3                        minus 1
FC4A64 D2C3                   add.w    D3,A1                        Address of next position 
FC4A66 4243                   clr.w    D3                           Cursor still in same line
FC4A68 4E75                   rts                                   

*****************************************************************   Scroll screen up at line D1 
FC4A6A 26790000044E           move.l   $44E,A3                      _v_bs_ad
FC4A70 363900002912           move.w   $2912,D3                     Bytes per character line 
FC4A76 C6C1                   mulu.w   D1,D3                        multiply by number of lines 
FC4A78 47F33000               lea      0(A3,D3.w),A3                Address of the current line 
FC4A7C 4441                   neg.w    D1                           Current line
FC4A7E D27900002910           add.w    $2910,D1                     Maximum cursor line - current line
FC4A84 363900002912           move.w   $2912,D3                     Bytes per character line
FC4A8A 45F33000               lea      0(A3,D3.w),A2                Address of the last line
FC4A8E C6C1                   mulu.w   D1,D3                        Number of bytes to move
FC4A90 E443                   asr.w    #2,D3                        Divided by four, equals number of longs
FC4A92 6002                   bra      $FC4A96                      
FC4A94 26DA                   move.l   (A2)+,(A3)+                  Copy screen lines 
FC4A96 51CBFFFC               dbra     D3,$FC4A94                   Next long word 
FC4A9A 323900002910           move.w   $2910,D1                     Maximum cursor line
FC4AA0 3401                   move.w   D1,D2                        
FC4AA2 4841                   swap     D1
FC4AA4 4842                   swap     D2
FC4AA6 4241                   clr.w    D1
FC4AA8 34390000290E           move.w   $290E,D2                     Maximum cursor column
FC4AAE 6000FD76               bra      $FC4826                      Clear last line

*****************************************************************   Scroll screen down at line D1
FC4AB2 26790000044E           move.l   $44E,A3                      _v_bs_ad
FC4AB8 363900002910           move.w   $2910,D3                     Maximum cursor line 
FC4ABE C6F900002912           mulu.w   $2912,D3                     Bytes per character line
FC4AC4 47F33000               lea      0(A3,D3.w),A3                Address of the last line
FC4AC8 363900002912           move.w   $2912,D3                     Bytes per character line
FC4ACE 45F33000               lea      0(A3,D3.w),A2                Address of the first line
FC4AD2 3001                   move.w   D1,D0                        Current line
FC4AD4 4440                   neg.w    D0                           
FC4AD6 D07900002910           add.w    $2910,D0                     Maximum cursor line
FC4ADC C6C0                   mulu.w   D0,D3                        times bytes per character line 
FC4ADE E443                   asr.w    #2,D3                        Divided by 4 for long word counter
FC4AE0 6002                   bra      $FC4AE4                      
FC4AE2 2523                   move.l   -(A3),-(A2)                  Copy screen lines 
FC4AE4 51CBFFFC               dbra     D3,$FC4AE2                   Next long word 
FC4AE8 60B6                   bra      $FC4AA0                      Clear top line

*****************************************************************   VDI ESC 102, Initialize font parameters
FC4AEA 207900002942           move.l   $2942,A0                     Address of INTIN array
FC4AF0 2050                   move.l   (A0),A0                      Address of the font header
FC4AF2 30280052               move.w   82(A0),D0                    formhight, height of a character
FC4AF6 33C00000290C           move.w   D0,$290C                     save
FC4AFC 32390000293C           move.w   $293C,D1                     Number of bytes per screen line
FC4B02 C2C0                   mulu.w   D0,D1                        times height of a character
FC4B04 33C100002912           move.w   D1,$2912                     yields bytes per character line
FC4B0A 7200                   moveq.l  #0,D1                        
FC4B0C 323900002936           move.w   $2936,D1                     Screen height in bits 
FC4B12 82C0                   divu.w   D0,D1                        Divided by font height 
FC4B14 5341                   subq.w   #1,D1                        minus 1
FC4B16 33C100002910           move.w   D1,$2910                     yields maximum cursor line
FC4B1C 7200                   moveq.l  #0,D1                        
FC4B1E 32390000292E           move.w   $292E,D1                     Screen width in bits
FC4B24 82E80034               divu.w   52(A0),D1                    Divide by maximum character width 
FC4B28 5341                   subq.w   #1,D1                        minus 1
FC4B2A 33C10000290E           move.w   D1,$290E                     yields maximum cursor column 
FC4B30 33E800500000292C       move.w   80(A0),$292C                 Width of the font, formwidth 
FC4B38 33E800240000292A       move.w   36(A0),$292A                 Smallest ASCII code in font 
FC4B40 33E8002600002928       move.w   38(A0),$2928                 Largest ASCII code in font 
FC4B48 23E8004C00002924       move.l   76(A0),$2924                 Pointer to font data
FC4B50 23E8004800002930       move.l   72(A0),$2930                 Pointer to offset data
FC4B58 4E75                   rts                                   

*****************************************************************   Initialize screen output 
FCA7C4 10390000044C           move.b   $44C,D0                      sshiftmd, screen resolution 
FCA7CA C07C0003               and.w    #3,D0                        Isolate bits 0 and l
FCA7CE B07C0003               cmp.w    #3,D0                        3 ?
FCA7D2 6604                   bne      $FCA7D8                      No
FCA7D4 303C0002               move.w   #2,D0                        Replace with 2 (high resolution) 
FCA7D8 3F00                   move.w   D0,-(A7)                     Save resolution
FCA7DA 6100007E               bsr      $FCA85A                      Set parameters for screen resolution 
FCA7DE 301F                   move.w   (A7)+,D0                     Restore resolution
FCATE0 41F900FD2D00           lea      $FD2D00,A0                   Address of the 8x8 system-font header 
FCA7E6 B07C0002               cmp.w    #2,D0                        High resolution ? 
FCATEA 6606                   bne      $FCA7F2                      No
FCATEC 41F900FD375C           lea      $FD375C,A0                   Else address of the 8x16 system-font header
FCA7F2 6100A2FE               bsr      $FC4AF2                      Initialize font data 
FCATF6 33FCFFFF00002916       move.w   #$FFFF,$2916                 Type color to black
FCA7FE 7000                   moveq.l  #0,D0                        
FCA800 33C000002914           move.w   D0,$2914                     Background color white 
FCA806 33C00000291E           move.w   D0,$291E                     Cursor column zero 
FCA80C 33C000002920           move.w   D0,$2920                     Cursor line zero
FCA812 33C00000291C           move.w   D0,$291C                     Line offset zero 
FCA818 20790000044E           move.l   $44E,A0                      _v_bs_ad, screen address 
FCA81E 23C800002918           move.l   A0,$2918                     as cursor address
FCA824 13FC000100002934       move.b   #1,$2934                     Set cursor flag
FCA82C 13FC001E00002923       move.b   #$1E,$2923                   Cursor flash counter to 30 
FCA834 13FC001E00002922       move.b   #$1E,$2922                   Cursor flash rate to 30 
FCA83C 33FC0001000027E0       move.w   #1,$27E0                     Cursor not visible
FCA844 323C1F3F               move.w   #$1F3F,D1                    8000 long words
FCA848 20C0                   move.l   D0,(A0)+                     Clear screen
FCA84A 51C9FFFC               dbra     D1,$FCA848                   
FCA84E 23FC00FC41BC000004A8   move.l   #$FC41BC,$4A8                constate vector to standard
FCA858 4E75                   rts                                   

*****************************************************************   Set parameters for screen resolution
FCA85A 7200                   moveq.l  #0,D1                        
FCA85C 123B0030               move.b   $FCA88E(PC,D0.w),D1          Get number of screen planes 
FCA860 33C10000293A           move.w   D1,$293A                     and save
FCA866 123B0029               move.b   $FCA891(PC,D0.w),D1          Get bytes per screen line 
FCA86A 33C10000293C           move.w   D1,$293C                     and save
FCA870 33C100002938           move.w   D1,$2938                     
FCA876 E340                   asl.w    #1,D0                        Resolution as word index
FCA878 323B001A               move.w   $FCA894(PC,D0.w),D1          Get screen height
FCA87C 33C100002936           move.w   D1,$2936                     and save
FCA882 323B0016               move.w   $FCA89A(PC,D0.w),D1          Get screen width
FCA886 33C10000292E           move.w   D1,$292E                     and save
FCA88C 4E75                   rts                                   

*****************************************************************   Screen par